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1,0 ABSTRACT 

THE 0KC8.AA OPTION TE1T «% PROGRAM IS DESIGNED TO TEST ALL THE 
LOGIC ON THE PDP-8A OPTION BOARD #£ MODULE (M8316) T«AT IS TESTABLE 
BY PROGRAM INSTRUCTIONS, THE DEVICES TESTED BY THE PROGRAM ARE 
THE REAL TIME GLOC*i THE 12 BIT PARALLEL I/O, ANf> THE SERIAL LINE 
UNIT, THE 12 BIT PARALLEL I/O AND THE SERIAL LINE UNIT ARE TESTED 
IN LOOP RACK MODE BY CONNECTING THE 12 BIT PARALLEL I/O OUT TO 
12 BIT PARALLEL I/O IN, EJ A OUT TO EIA IN, OR 20MA CURRENT OUT 
TO 20MA CURRENT IN FOR THE SERIAL LINE UNIT, A OPERATOR INTERVENTION 
TEST HAS BEEN PROVIDED IN THE DOCUMENT TO TEST THE FRONT PANEL 
LOGIC, IF A FRONT PANEL IS CONNECTED TO THE PDP.8A OPTION BOARD #1, 
THIS PROGRAM WILL RUN IN ANY FIELD', 

THE PROGRAM Wjll RUN WlT« THE PDP-8A OPTjON 14 2 TEST MODULE 

{G5041I IF AVAILABLE, THE PROGRAM USES THE OPTION 1 « 2 TEST 

MODULE TO TEST LOGIC THAT THE PROGRAM NORMALLY CAN NOT TEST US1N5 PROGRAM 

INSTRUCTIONS, ALSO THE PROGRAM USES THE OPTION 1 < 2 TEST MODULE 

TO PERFORM TJMINS TESTS ON The REAL TJME CLOCK AND THE SERIAL 

LINE UNIT, AND TO ALLEVIATE OPERATOR INTERVENTION, 

THE 4K VERSION OF THE PROGRAM ONL*. II STRUCTURED SO THAT jT 

MAY BE RUN ON THE POP-8A XOR TESTER, TO RUN THE PROGRAM ON THE POP. OA 

XOR TESTER. A OPTION 1 S 2 TEST MODULE JS REQUIRED FOR THE "KGM" AND THE "MUT" SIDE, 

THE PROGRAM IS STRUCTURED 50 THAT JT MAY RUN ON OR OFF 

THE PDP.8A APT TEST LINE, IT CAN RUN WITH OR WITHOUT 

THE OPTION 1 4 2 TEST MODULE, OR JT CAN RUN WITH ANY 

COMBINATION OF THE ABOVE WITH THE PDP-8A OPTION BOARD #1, 

THE PROGRAM fS A 4K PROGRAM BUT jT jS ALSO SUPPLIED IN 
FOUR IK SEGMENTS FOR USE ON COMPUTERS WITH LESS THAN 
4K OF MEMORY, 

2,0 REQUIREMENTS 



2,1 HARDWARE 



PROCESSOR! 

PDP-8A 

MEMORYl 

1, MJnIMUM qF 4K qF MEMqRY FgR CqMPLETE pRpORAM 

2, MINIMUM OF IK OF MEMORY FOR SEGMENTED £K 
VERSIONS OF THE 4K PR03RAM 

OPTIONS! 

IF OPTION BOARD »1 IS Tq BE TESTED ALONE WITHOUT 
THE OPTION 112 TEST MODULE, THE FOLLOWING HARDWARE 
IS REQUIRED. OTHERWISE, SEE THE HARDWARE REQUIRED 
UNDER THE NEXT SECTION LABELED SPECIAL 

1, PDP-8A OPTION BOARD #1 (M8316) 

2, ONE BCO8R-01 CABLE 

5, ONE EIA 9ERG CONNECTOR 
4 , THREE TERM J "PQ I NT JUMBERS 
5, ONE 3UA0 EXTENDER, 



SPECIAL! 

*. ?HC rOLLOWJNO MAHQWA«E IS REQUIRED TO RUN THE PROGRAM 

WITH THE OPTION 112 TEST MODUlEl 

1, PQP-8A OPTION BOARD 01 (M8316J 

2, OPTION 14 2 TEST MQOULE (S3!141> 

3, ONE 9ER6 INTERFACE CABLE (PN-7010274) 

4, ONI IC iOCKCT CONNECTOR CABLE < PN. 7008412 ) 

5, ONE QUAD EXTENDER 



9, THE FOLLOWING HARDWARE IS REQUIRED TO RUN THE PROGRAM 

ON THE POP-IA XO» TESTER, 

1. TWO P0P-8A OPTION BOARD §VS (ONE MOOTED FOR "KGM" SJQE 
3, TWO OPTION 112 TEST NODULES <G5041'S> 

3, TWO BERG INTERFACE CABLES {PN. 7010274} 

4, THREE ! iC SOCKET CONNECTOR CABLES ( PN.?(J0(J612 ) 

a',2 STORAGE 



THE 4K VERSION OP DKC8-AA OPTJON TEST 1 CAN BE 
LOADED INTO ANT FJELD, THE PROGPAM OCCUPIES LOCATIONS 
0000 TO 5777 IN THE PIILO THAT JT WAl LOADED INTO AND 
ADDRESSES 0100 TO 0012 JN FIELD 0, 

THE IK SEGMENTS Of THE 4K "ROG"AM CAN BE LOADED INTO ANY 

r I ELD', THE PROGRAM OCCUPIES LOCATIONS 1000 TO 1777 IN THE FIELD 

THAT IT WAS LOADED INTO AND LOCATIONS 0030 TO 3012 JN r J ELD 8, 

2,3 PREREQUISITE SOFTWARE 



P D P »8 A C°U TEST 
fOP-SA MTHORY TESTS 

!F IK OP MEMORY • IK TO 32< RANDOM MEMORY REFERENCE INSTRUCTION FXEHCISER 
IF 2K OF MEMORY . ZK TO 32< PDP-8A PROCESSOR EXERCISER 

3,0 RESTRICTIONS 

I, 00 NOT LOAD THE PROGRAM UNTIL PARAGRAPH 4,0 (STANDARD 
TEST PROCEDURE} IS FOLLOWED EXPLICITLY, 

?. IF THE OPTION I < 2 TEST MODULE IS TO BE USEDi SET ALL 
SWITCHES ON THE MISIS ( OPT ION BOARD PI) TO OFF', 

3, THE 4K VERSION OF THE PROGRAM JS ThE ONLY VERSION OF THE 
PROGRAM THAT WILL RUN ON THE POP-IA XOR TESTER', 

4, TO RUN TwE PROGRAM ON T H E PDP«8 A XOR TESTER, A OPTION 1 * ? 
TEST MODULE IS REQUIRED FOR THE "KGM" AND "MUT" SJDES OF THE 
TESTER, AND THE PROGRAM nyST BE "INITIALIZED" CORRECTLY, 



STANDARD TEST PROCEDURE 



IF A PROMT PANEL IS CONNECTED TQ THE M83J.6 MODULE , DO THE OPERATOR 
INTERVENTION FRONT PANEL TEST, PARAGRAPH 4.1. 



IF THE PROGRAM IS TQ BE "UN ON THE PpP.BA XQR TESTER, CO TO 
PARAGRAPH 4,B (P0P-8A XO* TESTING) FOR LOADING AND INITIALIZING 
THE PROGRAM AND FOR THE TEST SETUP*, 

THE FOLLOWING PARAGRAPHS MUST BE FOLLOWED EXPLICITLY TO SETUP 
THE HARDWARE, LOAD THE PROGRAM, SETUP THE MODULE FOR TEST, AND 
TO INITIALIZE THE PROGRAM, 

4.2 LOADING THE PROGRAM 

4,2,1 LOADING THE PROGRAM VIA HIGH SPEED READER OR TELETYPE 

4.3 SETTING THE M83J.6 MODULE UP FOR TEST 

4.3.1 SETTING THE M8316 UP FOR TEST WITHOUT OPT I ON 1*2 TEST MODULE 

4.3.2 SETTING THE M8316 UP FOR TEST WITH OPTION i * 2 TEST MODULE 

4.4 PROGRAM INITIALISATION 

THE PROGRAM IS DIVIDED INTO THREE SECTIONS AND EACH SECTION MUST 
BE RUM SEPARATELY UNLESS A OPTION i * 2 TEST MODULE IS UTILIZED 
WITH THE PROGRAM, IF THE OPTION 1*2 TEST MODULE JS USED, 
RUN OKCS-AA OPTION TEST 1 (4,55 WHICH WILL INCLUDE THE REAL 
TIME CLOCK AND SERIAL L I K| E UN I T TIMING TEST, IF THE OPTJON 1 * ? 
TEST MODULE IS NOT USED HQ THE FOLLOWING TEST I 

RUN 0KC8* AA OPTION TEST 1 PARAGRAPH 4,5 

RUN SEAL TIME CLOCK TIMING TEST PARAGRAPH 4,6 

RUN SERIAL LINE UNIT TIMING TEST PARAGRAPH 4,7 



4,1 OPERATOR INTERVENTION FRONT PANEL TEST 



ANY ERRORS DURING THIS TEST, REFER TO THE CIRCUIT SCHEMATICS 
OF THE M9316 MODULE (OPTION BOARD #1} OR TO THE CIRCUIT 
SCHEMATICS OF" THE FRONT PANEL, 

1, TURN THE COMPUTER OFF AND THEN ON 

2, CHECK FOR A NUMBER LIT IN EACH DIGIT OF THE ADDRESS 
AND CONTENT REGISTER, 

3, PRESS THE NUMBER 0, 

4, CHECK CONTENT REGISTER TO BE AND THE AC, MO, BUS, 
STAT'is, SR, RUN, STATE, AND MD LIGHTS TO BE OFF, 

5, PRESS OISP AND CHECK THAT THE AC LIGHT IS THE ONLY 
LIGHT THAT IS LIT, 

ft, PRESS THE NUMBER 1 

7, CHECK CONTENT TO BE 0001 A N D ALL OTHER LIGHTS TO BE OFF 
% PRESS DISP AND CHECK MQ LIGHT TO BE THE ONLY LIGHT LIT 
9, PRESS THE NUMBER 2 

10', CHECK THAT CONTENT ECUALS 0002 AND ALL OTHER LIGHTS ARE OFF 
11', PRESS DISP AND CHECK BUS TO BE THE ONLY LIGHT ON", 
12', PRESS THE NUMBER 3 

13", CHECK THAT CONTENT EQUALS 0003 AND ALL OTHER LIGHTS ARE OFF 
14', PRESS D ISP AND CHECK STATUS TO BE THE ONLY LIGHT ON, 
15', PRESS THE NUMBER 4 

16, CHECK THAT CONTENT ESUALS 0004 AND ALL OTHER LIGHTS ARE OFF 
17', PRESS OISP AND CHECK SR TO BE THE ONLY LIGHT ON 
18', PRESS THE NUMBER 9 

19', CHECK THAT CONTENT EQUALS 0005 AND ALL OTHER LIGHTS ARE OFF 
20*, PRESS DISP AND CHECK STATE TO SE THE ONLY LIGHT ON 
21', PRESS THE NUMBER 6 

22', CHECK THAT CONTENT EQUALS 0006 AND ALL OTHER LIGHTS ARE OFF 
23', PRESS DISP AND CHECK MD TO BE THE ONLY LIGHT ON, 
?4', PRESS THE NUMBER 7 

25', CHECK THAT CONTENT EOUALS 0007 AND ALL OTHER LIGHTS ARE OFF 
26', PRESS DISP AND CHECK CONTENT TO BE 7777 AND ALL THE OTHER 

LIGHTS TO 9E OFF 
27, TURN THE COMPUTER OFF AND THEN ON 
28', PRESS THE NUMBER 4 AND THEN DISP 
29", CHECK CONTENT TO BE AND SR TO BE ONLY LIGHT ON 
30', PRESS THE NUMBER 9 AND CHECK CONTENT TO BE 0209 AND 

THAT NO LIGHTS ARE ON 
31', PRESS THE NUMBER 2 AND CHECK CONTENT TO BE 0052 
32', PRESS THE NUMBER 5 AMD CHECK CONTENT TO BE 0525 
33', PRESS THE NUMBER 2 AND CHECK CONTENT TO BE 5252 
34', PRES." LA • CHECK THAT CONTENT 5252 WENT TO 

ADDRESS AS 05252 AND CONTENT WENT TO HERO AND 

CHECK THAT SR IS THE ONLY LIGHT ON', 
35', PRFSS THE NUMBERS 2525 CONSCGAf J V|I»Y AND CHECK 

CONTENT TO CONTAIN 2525, AND THAT NO LIGHTS ARE ON 
36", PRESS LA « CHECK ADDRESS TO BE 02525, CONTENT TO 

RE 0C00, AND SR TO WE ONLY LIGHT ON 
37', LOAD ADDRESS TO 0200 
38', PRESS THE NUMBER t AND THEN DISP 
39', CHECK THE HO LIGHT TO BE THE ONLY LIGHT ON 

40", PRESS THE NUMBERS 74*2 AND CHECK CONTENT TO EQUAL THIS NUMBER 
41", PRESS THIS 

42', CHECK ADDRESS EQUAL AND CONTENT EOUAL 7402 

43', PRESS THE NUMBERS 76*M - CHECK CONTENT TO EQUAL THIS NUMBER 



44', 
AT, 
46', 
47*. 
4S*. 
49', 

50', 
51', 
52', 
93', 
54', 
55, 
36, 
57', 
58, 
59, 
60', 
61', 
62', 
63', 
64-, 
65', 
66, 
*7', 
68', 
69', 
70', 

n\ 

72', 
73', 
>4', 
73', 
*6', 
'7', 

78', 
79', 

80', 
81 1 

82', 
83', 

84', 
85', 

86', 
87', 

88', 
89', 

90', 
•It 

92', 
93*. 

94*. 



mess o ^ext 

check address ebual "2 i and content equal 7604 
press the numbers 7421 and check content to equal 7421 
mess next 

check address to equal 0202 and content equal 7421 
press the numbers 121*1 and check content to equal 1201 
press next 

check address to equal 0203 and content equal to 1201 
press numbers 7402 and check content to equal 74p2 
press next 

check address to equal 0204 and content to equal 7402 
press numbers 7001 and check content tfl equal this number 
press d next 

check address to equal 0209 and content to equal 7001 
press numbers 5204 an0 check content to equal this number 

* NEXT 

ADDRESS TO EQUAL 0206 AND CONTENT TO EQUAL 5204 



PRESS 
CHECK 
LOAD 
PRESS 



kOOREis to nm 

E THIS 



AND CONTENT TO EQUAL 7001 
AND CONTENT TO EQUAL 9204 



CHECK ADDRESS EQUAL TO 0200 AND CONTENT EQUAL 7604 
PRESS E NEXT 

CHECK ADDRESS EQUAL TO 0201 AND CONTENT EQUAL 7604 
PRESS E NEXT 

CHECK ADDRESS EQUAL TO 0202 AND CONTENT EQUAL TO 7421 
PRESS E NEXT 

CHECK ADORESS EQUAL TO 0203 AND CONTENT EQUAL TO 1201 
PRESS E NEXT 

CHECK ADORESS EQUAL TO 0204 AND CONTENT EQUAL TO 7402 
PRESS E NEXT 

CHECK ADDRESS TO EQUAL 0205 
PRESS E NEXT 

CHECK ADDRESS TO EQUAL 0206 
PRESS NUMBERS 5232 
CHECK AODRESS TO EQUAL 0Z06, CONTENT TO EQUAL 3252 AND 
NO LIGHTS ON 
PRESS LSR 

CHECK ADDRESS TO EQUAL 0206, CONTENT TO EQUAL 3204 AND 
MO LIGHT TO BE ONLY LIGHT LIT 
PRESS THE NUMBER 4 AND DISPLAY 

CHECK ADDRESS TO BE 206 AND CONTENT TO BE 3232 AND 

THE SR LIGHT TO BE ONLY LIGHT LIT 

LOAD ADDRESS TO 0200 « PRESS INJT AND THEN RUN 

CHECK THAT MA EQUALS 020«, CONTENT EQUALS 3252 ANg 

SR LIGHT TO BE ONLY LIGHT LIT 

PRESS THE NUMBER 6 AND THEN DISP 

CHECK ADDRESS TO BE ?204 AND CONTENT TO BE 7402 AND 
THAT THE MR LIGHT IS THE ONLY LIGHT LIT 
PRESS THE NUMBER 1 AND THEN pISP 

CHECK ADDRESS TO BE 0204 AND CONTENT TO BE 5232 AND 
THAT THE MQ LIGHT IS THE ONLY LIGHT LIT 
PRESS THE NUMBER AND THEN pjsp 

CHECK ADDRESS TO BE <?204, CONTENT TO BE 7421 AND 
AC LIGHT TO BE ONLY LIGHT LIT 
PRESS JNIT 

CHECK ADDRESS TO BE 02B4, CONTENT TO BE AND AC 
LIGHT TO BE ONLY LIGHT LIT 
PRESS HLT/SS 

CHECK AODRESS TO BE 5*205, CHECK CONTENT TO EQUAL I 
AND AC LIGHT TO BE ONLY LIGHT LIT 
PRESS HLT/SS 



95'i CHECK ADDRESS TO BE 0204, CONTENT TO BE 0001 AND AC 

LIGHT TO BE OK|UY LIGHT LIT, 
96', PRESS RUN 

97', CHEC* RUN AND AC LIGHTS TO IE ONLY LIGHT LIT 
98', PRESS HLT/5S 

99V CHECK RUN LIGHT TO GO OUT AND AC LIGHT TO BE ONLY 
LIGHT ON 

100, PRESS RUN 

101, CHECK RUN LIGHT AND AC LIGHT TO 9C ON', 

102, SET PANEL LOCK SWITCH TO PANEL LOCK PSITION 

103, press E THIS, E NEXT, THIS, NEXT, BOOT, DISP, LSR 
LA, LXA, INI T, PUN, ANQ HLT/SS 

104, CHECK THAT RUN LIGHT AND AC LIGHT REMAIN ON 

105, SET PANEL LOCK SWITCH TO OFT AND THEN PRESS HLT/SS 

106, CHECK THAT RUN LIGHT GOES OrF AND THAT AC LIGHT 
IS THE ONLY LIGHT LIT 

107, PRESS THE NUMBER 6 AND THEN DISP 

108, CHECK THAT THE HQ LIGHT IS LIT 

109, LOAT ADDRESS TO 0400 AND DEPOSIT THE FOLLOWING 
NUMBER INTO 400 TO 412 BY PRESSING NEXT AFTER 

EACH NUMBER I 7000, 3000, 1000, 0000, 2000, 42PI6, 0030, 
521P, 6002, 3603, 5>?00 

110, LOA- ADDRESS TO 3400 AND CHECk THAT THOSE NUMBERS WERE 
DEPOSITED CORRECTLY BY PRESSING E NEXT, 

111, LOAD ADDRESS TQ 04051 

112, PRESS THE NUMBER 3 AND 0J5P 

113, CHECK THAT THE STATUS LIGHT 13 THE ONLY LIGHT ON 

114, PRESS HLT/SS 



115, 


CHECK 


ADDRESS 


TO 


BE 


0401 


AND 


CONTENT 


TO 


BE 


4740 




IP THE NUMBER 


IS 


4750 PRESS 


THE BOOT 


SWITCH ONCE 


116, 


PRESS 


HLT/SS 


















117, 


CHECK 


ADDRESS 


TO 


BE 


0000 


AND 


CONTENT 


TO 


BE 


1340 


118, 


PRESS 


HLT/SS 


















11^, 


CHECK 


ADDRESS 


TQ 


BE 


0402 


AND 


CONTENT 


TO 


BE 


4300 


120, 


PRESS 


HLT/SS 


















121, 


CHECK 


ADDRESS 


TO 


BE 


0000 


ADND CONTENT TO BE 1140 


122, 


PRESS 


HLT/SS 


















123, 


CHECK 


ADDRESS 


TO 


BE 


0403 


AND 


CONTENT 


TO 


BE 


4100 


124, 


PRESS 


HLT/SS 


















129, 


CHECK 


ADDRESS 


TO 


BE 


0000 


AND 


CONTENT 


TO 


BE 


1040 


126, 


PRESS 


HLT/SS 


















127, 


CHECK 


ADDRESS 


TO 


BE 


0404 


AND 


CONTENT 


TO 


BE 


4000 


130, 


PRESS 


HLT/S9 


















131, 


CHECK 


ADDRESS 


TQ 


BE 


0000 


ANQ 


CONTENT 


TO 


BE 


1240 


132, 


PRESS 


HLT/SS 


















133, 


CHECK 


ADDRESS 


TO 


BE 


0405 


AND 


CONTENT 


TO 


BE 


4200 


134, 


PRESS 


HLT/SS 


















135, 


CHECK 


ADDRESS 


TO 


BE 


0406 


AND 


CONTENT 


TO 


BE 


1440 


136, 


PRESS 


HLT/SS 


















137, 


CHECK 


ADDRESS 


TO 


BE 


0407 


AND 


CONTENT 


TO 


BE 


4400 


138, 


PRESS 


HLT/SS 


















139, 


CHECK 


ADDRESS 


TO 


BE 


0410 


AND 


CONTENT 


TO 


BE 


4540 


140, 


PRESS 


HLT/SS 


















141, 


CHECK 


ADDRESS 


TO 


BE 


0411 


AND 


CONTENT 


TO 


BE 


4640 


142, 


PRESS 


HLT/SS 


















143, 


CHECK 


ADDRESS 


TO 


BE 


0403 


AND 


CONTENT 


TO 


BE 


2340 


144, 


PRESS 


HLT/SS 


















145, 


CHECK 


ADDRESS 


TO 


BE 


000!! 


AND 


CONTENT 


TO 


BE 


1300 


146, 


PRESS 


HLT/SS 


















147, 


CHECK 


ADDRESS 


TO 


BE 


0412 


AND 


CONTENT 


TO 


BE 


4300 



150, PRESS HLT/SS 

131, CHECK ADDRESS TO 91 B«B0 A N Q CONTENT TO BE 4?4| 

132, PRESS HLT/SS 

153, CHECK ADDRESS TO BE 0*01 AND CONTENT TO BE 4740 

154, PRESS BOOT SWITCH 

155, CHECK ADDRESS TO BE 0401 AND CONTENT TO BE 4750 

156, PRESS BOOT SWITCH 

157, CHECK AOORESS TO BE 0«01 AND CONTENT TO BE 4740 

158, LOAD ADDRESS TO 0200 AND DEPOSIT JN TO 0200 TO 

0206 THE FOLLOWING NUMBERS USING THE NEXT FUNCTlONj 
6(?07, 7020, 6001 1 7100, 6002, 3200 

159, LOAD ADDRESS TO 020? AND CHECK THAT THE NUMBERS 
WERE! DEPOSITED CORRECTLY USING THE E NEXT FUNCTION, 

160, LOA"! ADDRESS TO 0200 

161, PRESS NUMBER 3 AND THEN OISP 

162, PRESS HLT/SS 

163, CHECK ADDRESS TO BE 0201 AND CONTENTS TO BE 0000 

164, PRESS HLT/SS 

165, CHECK ADDRESS TO BE 0202 AND CONTENTS TO BE 4000 

166, PRESS HLT/SS 

167, CHECK ADDRESS TO BE 0203 AND CONTENTS TO BE 4200 

168, PRESS HLT/SS 

16V, CHECK ADDRESS TO BE 0204 AND CONTENTS TO BE 0200 

170, PRESS HLT/SS 

171, CHECK ADDRESS TO BE 0205 AND CONTENTS TO IE 0000 

172, LOAD ADDRESS TO 0200 AND DEPOSIT INTO 200 AND 201 
USING THE D NEXT FUNCTION THE NUMBER 7604 

AND 5200 

173, LOAS ADDRESS TO 0200 PRESS I NIT THEN RUN 

174, PRESS NUMBER AND OJSP 

175, PRESS NUMBER 5232 AND THEN LSR 

176, CHECK CONTENT TO BE 5252 

177, PRESS NUMBER 2329 AND THEN L SR 

178, CHECK CONTENT TO BE 2525 

179, DONE GO TO PARAGRAPH 4,2 



Loading the program 



BEFORE LOADING THE PROGRAM, THE FOLLOWING STEPS 
MUST BE riQNE, 

A i POWER THE COMPUTER DOWN 

3, UNPLUG THE M8316 MODULE FROM THE COMPUTER 
e, PLUG THE QUAD EXTENDER INTO THE SLOT THE M8316 OCCUPIES 
i PLUG THE MB316 MODULE INTO THE QUAD EXTENDER , 
I i IF THE OPTION 1*2 TEST MODULE IS TO BE USED DO THE 
FOLLOWING, IF NOT GO TO STEP F', 

1, PLUG ONE END OF THE IC SOCKET CONNECTOR CABLE < PN.7008612 > 
INTO TS.3, 1ST SOCKET ABOVE E63, ON THE 09041 MODULE, 

2\ TAKE THE END OF THE «E«G CONNECTOR CABLE (PN-7010274) 

WHICH HAS ONLY QME BERG CONNECTOR ON IT AND PLUG IT INTO 
BERG SOCKET Jl ON THE GS041 MODULE, 

3, PLUG THE TEST MODULE <G504t> INTO THE COMPUTER', 

F, POWER THE COMPUTER BACK UP 

G, TO LOAD THE PROGRAM VIA HIGH SPEED READER 
OR TELETYPE, GO TO PARAGRAPH 4*,2,1', 

4.2.1 LOADING THE PROGRAM VjA HjGH SPEED READER OR TELETYPE 

A, IF THE PROGRAM IS TO BE LOADED VIA HIGH SPEED READER 
GO TO STEP 8, OTHERWISE DO THE FOLLOWING THREE 
STEPS TO SETUP THE MB316 MODULE TO LOAD THE PROGRAM 
VIA TELETYPE, 

l'i WITH POWER ON, SET THE FOLLOWING SWITCHES ON 

THE M8316 MODULE TO THE OFF POSITlONl Sl«l, Si,. 2, 
Sl-3, AND Sl-7, 

?', WjTH POWER ON, SET The FOLLOWING SWITCHES ON THE 
M8316 MODULE TO ThE ON POSITlONl Sl-3, Sl»6, 

and si. a, 

3'. PLUG THE TELETYPE CABLE INTO THE J3 BERG CONNECTOR 
ON THE M8316 MODULE, THE MODULE IS NOw READY 
TQ LOAD THE PROGRAM, GO TO STEP B\ 

B, IF The COMPUTER CONTAINS 4K OF MEMORY OR MORE, QO 
STEP C IN THIS SECTION, OTHERWISE DO STEP D FOR THOSE 
COMPUTERS WITH LESS THAN 4K OF MEMORY', 

C, LOAD THE BINARY TAPE, * A J NDEC-08«DjDK A.B-PB1 J USING 
THE STANDARD BINARY LOADER TECHNIQUE, AFTER TAPE HAS 
BEEN SUCCESSFULLY LOADED, GO TO PARAGRAPH 4,3, 
SETTING THE Mg3i* MODULE UP FOR TEST, 

D, COMPUTERS WjTH LESS THAN 4K OF MEMORY ARE SUPPLIED. 
WITH FOUR IK SEGMENTS OF DKC8.AA OPTION TEST J,', THESE 
IK SEGMENTS ARE IN RIM FORMAT AND EACH TAPE SHOULD BE 
RUN CONSECUTIVELY, THE TAPES ARE LABELED AS 
MAINDEC-08»DJOKA«.B»PM1, -PM2, »PM3 AND »PM4 , TO LOAD 
THESE PROGRAMS, DEPOSIT INTO LOCATIONS LISTED BELOW 
THE APPROPRIATE RIM LOADER FOR THE LOADING 

DEVICE TO BE USED • 



HJOH SPEED REAOE* 



LOW SPEED READER 



ADDRESS CONTENT ADDRESS CONTENT 



<8r 9 «»as m se 


^ HE T w IT 






0156" 


6014 


0156 


6032 


0137 


6011 


0137 


6031 


0160 


5357 


0160 


5357 


0161 


6016 


0161 


65136 


0162 


7106 


0162 


7106 


0163 


7006 


0163 


7306 


0164 


7310 


0164 


7510 


0163 


3374 


0165 


5357 


0166 


7006 


0166 


7006 


0167 


6011 


0167 


6031 


0170 


5367 


0170 


3367 


0171 


6016 


0171 


6034 


0172 


7420 


0172 


7420 


0173 


3776 


0173 


3776 


0174 


3376 


0174 


3376 


0175 


3357 


0175 


3336 



PLACE THE APPROPRIATE 1* SEGMENT INTO THE READER, 
"LOAD ADDRESS" TP 0156i PRESS » I NIT" AND THEN "RUN" , 

WHEN THE TAPE HAS BEEN LOADED, STOP THE COMPUTER. 60 
TO PARAGRAPH 4,3, SETTING THE M8316 MODULE UP fOR TEST*, 



SETTING THE M8316 MODULE UP TOR TEST 

00 NOT TURN THE COMPUTER OFF IF RAM MEMORY IS BEING USED, 

UNPLUG THE TELETYPE CABLE ''ROM TwE J3 BERG SOCKET 

ON THE MS316 MODULE IF CONNECTED, IF OPTION 1+2 TEST 

MODULE 15 TO 9E USED, GO TO PARAGRAPH 4,3,2, 

SETTING THE M8316 MODULE UP FQR TEST WjTMOUT OPTION 1 * 2 TEST MODULE 

A, SET THE SWITCHES ON THE M8316 MODULE TO THE 
DESIRED BAUD RATE LISTED BELOW» 



51-1 


51-2 


Sl»3 


BAUD 


RATE 




»•••» 






OFF 


OFF 


npF 


110 


BAUD 


OFF 


OFF 


ON 


150 


BAUD 


OFF 


ON 


OFF 


300 


BAUD 


OFF 


ON 


ON 


600 


BAUD 


ON 


OFF 


OFF 


1200 


BAUD 


ON 


OFF 


ON 


2400 


BAUD 


ON 


ON 


OFF 


4800 


BAUD 


ON 


ON 


ON 


9600 


BAUD 



B, SET "WITCHES Sl-5 AND Sl-6 TO THE ON POSITION TO 
ENABLE THE REAL TIME CLOCK AND THE TEST SWITCH', 

C, SET SWITCH Sl»7 TO ONE OF THE FOLLOWING POSITIONS | 

Si-7 JN THE ON POSITION > ONE STOP BIT ON THE SERIAL LINE UNIT 
Sl-7 IN THE OFF POSITION ■ TWO STOP BITS ON THE SERIAL LINE UNIT 

D, SET SWITCH Sl-8 TO THE ON POSITION IF THE MODULE {S 
SETUP FOR 110 BAUDi OTHERWISE, ALWAYS SET THE SWITCH 
TO THE OFF POSITION, 

£ » CONNECT BERQ SOCKETS J4 AND J3 ON THE M6316 MODULE 

IN PARALLEL USING THE BC08R-01 CABLE, THIS CONNECTS THE 

12 BIT PARALLEL I/O OUTPUTS TO ITS INPUTS', RE SURE THAT 

THE CABLE IS INSTALLED CORRECTLY, I.E., ONE END OF THE CABLE 

MAS TQ BE PLUGGED IN WITH THE LETTERING FACING DOWNWARDS (UPSIDE DOWN ) , 

F, DO STEP 1 BELOW TO CONNECT THE SERIAL LINE UN I T UP FOR 
EI A LOOP BACK OR QO STEP 2 BELOW FOR 23MA LOOP BACK, 

1'. using the termj-point JUMPCRS, CONNECT PIN F TO PJN J 
AND PIN E TO PIN M ON THE J3 BERG SOCKET ON THE 
"8316 MODULE OR PLUG THE E I A TEST HERG INTO THE 
J3 BERG SOCKET, GO TO PARAGRAPH 4,4, PROGRAM INITIALIZATION, 

2*. USING THE TERM I «PQ INT jUMBERS, CONNECT PlN E TO 

P I N H | PIN K TO PIN KK, AND PIN S TO PIN AA ON THE 
J3 BERG SOCKET ON THE M631* MODULE', GO TO 
PARAGRAPH 4,4, PROGRAM I N I T I AH i AT I ON', 

♦'.3,2 SETTING THE M8316 MQDUlE UP FqR TEST WITH THE OPTION 1 + 2 TEST MQOUlE 



A, SET ALL THE SWITCHES ON THE M8316 MODULE TO THE OFF 

POSITION, 

B, PLUG THE OTHER END OF The IC SOCKET CONNECTOR CABLE, WHICH 
WAS PLUGGED IN, IN PARAGRAPH 4*,2 STEP E, INTO THE TEST SOCKET 
ON THE MS316 MODULE (PIN 1 TO PIN 1), 

C NOW TAKE THE OTHER END OF THE BERG CONNECTOR CABLE, AND PLUG 

THE BERG CONNECTORS INTO J3, J4, AND J3 BERG SOCKETS ON THE MODULE. 



PROGRAM INITIALIZATION 



THE PROGRAM WHEN LOADED IS INITIALIZED TO RUN WITHOUT 
THE HARDWARE FRONT PANEL SWITCH REGISTER, WITHOUT 

THE OPTION 1 + 2 TEST MODULE, WITHOUT XOR TESTING, AND THE AMOUNT Of 
MEMORY REQUIRED TO RUN THE PROGRAM <4K FOR THE COMPLETE PROGRAM 
AND IK FOR THE SEGMENTED X* VERSIONS OF THE PROGRAM)', IF 
IT IS DESIRED TO CHANGE THE HARDWARE CONFIGURATION, LOAD 
ADDRESS TO AND DEPOSIT INTO THIS LOCATION THE APPROPRIATE 

HARDWARE CONFIGURATION FROM THE BITS LISTED BELOW, 

BJT » 3 THE PROGRAM WILL USE LOCATION 0320 AS A PSEUOO SWITCH 
REGISTER, 

BIT J) . i THE PROGRAM WJLL USE THE HARDWARE FRONT PANEL SWITCH 
REGISTER, 

BIT l m i HAS A OPTION 1 MODULE • N/A TO THE PROGRAM 

BIT 4 > THE PROGRAM WILL NOT USE THE OPTION 1 + 2 TEST 
MODULE TO TfST THE M8314 

BIT 4 » I THE PROGRAM WILL USE THE OPTION 1+2 TEST MODULE 
TO TEST THE M8316 

BIT 5 = B NOT RUNNING ON THE p DP«>8A XOR TESTER 

BIT 5 s J, RUNNING ON THE PDP.8A XOR TESTER . 3JT 4 MUST BE SET AND 
THE OPTION 1 * 2 TEST MODULES MUST 8E USED, 

BITS 7 m 11 SPECIFIES THE POPPA'S MEMORY SIZE", ALL *£ROES INDICATES 
IK OF MEMORY, AN ADDITION OF 1 TO THE NUMBER OF BITS IN 
7-11 INCREASES MEMORY SHE BY IK, 

GO TO PARAGRAPH 4,9, DKCB-AA OPTION TEST 1 

RUN DKC8-AA OPTION TEST 1 

A, IP THE COMPUTER CQNTAJNS 4K OF MEMORY , THE MAIN TAPE 
(OJDKA-B-PB1) IS USED FOR THIS SECTION, OTHERWISE, EACH ONE 
OF THE FOUR IK SEGMENTED TAPES SHOULD BE LOADED AND 

RUN', THEY SHOULD BE LOADED AND RUN JN THE FOLLOWING 
ORDER , IK PART 1, IK PART 2, ik PART 3, AND lK PART 4, 

B, TO THOROUGHLY CHECKOUT The SERIAL LINE UNIT WjfHOUT 
THE OPTION 1*2 TEST MODULE, THE MAIN PROGRAM, OR THE 

lK VERSIONS PART 2, PART 3 AND PART 4 SHOULD BE RUN 3 TIMES WJTH 
THE FOLLOWING CONFIGURATIONS, 

I", 110 BAUD mZ STOP BITS. 20 MA LOOP BACK 
2*. 150 BAUD -1 STOP BIT- EJA LOOP BACK 
3", 9600 BAUD -1 STOP BIT- EI A LOOP BACK 

p EFER TO PARAGRAPH 4,3,1 FOR SETTING UP SWITCHES 
ON THE M8316 MODULE AND FOR E I A OR 23 MA LOOP 
RACK CONNECTIONS, 



C. THE 4K PROGRAM AND ALL THE IK SEGMENTED VERSIONS Of 
THE PROGRAM START AT ADDRESS 0200, 

D i TO RUN THE PROGRAM, LQ*D ADDRESS TO 8200, SET THE 

SWITCH REGISTER TO »000, PRESS «JN!T" AND THEN "RyN" , 

t i SETTING THE SWITCH REG J5ETER TO 0400, OR \f THE 

pseuto switch register was set to 0400 depending 
on which one was selected by the operator, the 
computer will halt at the completion op a program pass, 

p, the program wjll now run until an error js encountered 

0^ THE PROGRAM IS STOPPED BY THE OPERATOR OR SR3n". 



RUN REAL TIME CLOCK TJMJMG TEST 



A, THE TEST IS A 30 SECOND STOP WATCH TIMING 
TEST 

9'i LOAD ADDRESS TO 4000 FOR T*PE MA J N0EC-38-D JDKA-S-PBl 
OR TO 1230 FOR TAPE "AINDEC-P8.DJDKA-B-PM4, IK 
VERSION PART 4i AND THEN PRESS "JNIT"', 

C, CHECK STOP WATCH AND P*ESS "RUN", 

n, THE PROGRAM SHOULD HALT IN APPROXIMATELY 30 SECONDS 
AT LOCATION 4021 FQR TAPE MA } N|OEC-08-DjDk A-B-PB1 
OR 1221 FOR TAPE MA I NDEC-08-0 JOK A.B-PM4 , 

RUN SERIAL. LINE UN J T TIMING TEST 



this test should be run for the following conditions! 
1} 113 baud- 3 stop bits, and 2) 150 bauo-1 stop bit', 
refer to paragraph 4,3,1 for baud rate and stop bit 

switch settings, 

a, this test js a 30 second stqp watch tjming test , 

b, load address to 4023 for tape m a j ndec-38-d jdka.8-p31 
q 5 * to 1223 for tape malndec«03»djdka«b«pm4, press 

"i nit" and then "run" , 

0, the computer will halt at address 4026 or 122$ 
for tapes listed in step b above, 



0, SET BJTS 8-11 FROM THE TABLE LISTED BELOW IN THE 
SWITCH REGISTER OR PSEUOO SWITCH REGISTER 
DEPENDING ON WHICH ONE WAS SELECTED BY OPERATOR, 
TO THE CONFIGURATION Of THE M8316 MODULE, 



SR8 


SR9 


SR10 


SRii 




mmm 


• SI 


mmmm 


















110 BAUD ■ 1 STOP BIT 


1 











110 BAUD m 2 STOP BITS 











i 


130 BAUD • 1 STOP BIT 


1 








i 


150 BAUD • 2 STOP BITS 








1 





300 BAUD • 1 STOP BIT 


I 





1 





300 BAUD • 2 STOP BJTS 








1 


i 


600 BAUD ■ 1 STOP 3JT 


1 


fl 


1 


i 


600 BAUD - 2 STOP SITS 





1 








1200 BAUD - 1 STOP BIT 


1 


1 








1200 BAUD » 2 STOP BITS 


a 


1 





i 


2400 BAUD - 1 STOP BIT 


i 


1 





i 


2400 BAUD - 2 STOP BITS 


3 


1 


1 





4630 BAUD - 1 STOP BIT 


1 


1 


1 





4800 BAUD . 2 STOP BITS 


§ 


1 


1 


1 


9600 BAUD - 1 STOP BIT 


1 


1 


i 


1 


9600 BAUD > 2 STOP BITS 



1 1 CHECK STOP WATCH AND PRESS "INI T" AND THEN "RUN"', 

r, THE PROGRAM SHOULD H*L T IN APPROXIMATELY 30 SECONyS 
AT LOCATION 4102 FOR TAPE MAjNDEC-08»DjDKA»EUPBl 
OR AT LOCATION 1302 FOR TA?E M A I NDEC-08-DJDK A-B-PM4 , 



PDP-aA XOR TESTING 



DO THE FOLLOWING STEPS TO LOAD AND INITIALIZE THE PROGRAM, 
TO SETUP THE HARDWARE, AND TO START THE XOR TEST", 



A, LOAD THE BINARY PAPER TAPE, MAINOEC-08.DJDKA-B.PB1, USING 
THE .STANDARD BINARY LOADER TECHNIQUE, 

8, POWER THE PDP-8A X0R DOWN AMD DO THE FOLLOWjNGl 

1', UNPLUG ANY TELETYPE MODULE THAT MAY BE PLUGGED INTO 
THE XOR TESTER, 

2, PLUG A PDP-8* OPTION 1 « 2 TEST MODULE INTO THE 
"KGM" AND "MUT" SIDES OF THE XOR TESTER, 

3, PLUG A BUSS LOADS MODULE UNDER EACH ftPTjON 1 S 2 
TEST MODULE i 

4, TAKE ONE OF T HE 1,0, SOCKET CONNECTOR CABLES AND 
PLUG IT INTO TS-3, 1ST SOCKET ABOVE £63, ON THE 
OPTION 13 2 TEST MODULE ON THE "KBM" SIDE, AND THEN 



oo the same on the !, mut» side, 

3, TAKE THE END QF THE BERG CONNECTOR CABLE WHICH HAS 
ONLY ONE HE«G CONNECTOR ON IT, AND PLUG IT INTO THE 
BERG SOCKET ON THE TEST MODULE ON THE "KGM" SIDE, NOW 
00 THE SAME FOR THE "MUT" S JOE', 

4, NOW TAKE THE OTHER J,C- SOCKET CONNECTOR CABLE AND 
PLUG IT INTO TS-4, 1ST SOCKET ABOVE E2, ON THE OPTION 
TEST MODULE ON THE "KGM" SIDE , NOW PLUG THE OTHER END 
Or THIS I,C, SOCKET CABLE INTO TS-3, 1ST SOCKET ABOVE 
E69, ON THE OPTION TEST MODULE ON THE "MUT" SIDE, 

7, NOW USING THE MODIFIED P0P«-8A OPTION BOARD #1, PLUG 
THE THREE BERG CONNECTORS FROM THE TEST MODULE ON THE 
"KGM" SIDE INTO BERG SOCKETS J3, J4, AND J3 ON THE 
P0P-8A QPTJQN BOARD #\\ NOW PLUG THIS MODULE INTO 
THE "KGM" SIDE OF THE XOR ABOVE THE OPTION 18 2 TEST MODULE, 

a', MAKE THE SAME CONNECTIONS AS JN STEP 7 ABOVE ON THE 
MODULE TO BE TESTED AND PLUG IT INTO THE "MUT" SIDE, 
ABOVE THE OPTION 18 2 TEST MODULE', 

9, NOW PLUG THE OTHER END OF THE I ,C, SOCKET CONNECTOR 
CABLE FROM EACH TEST MODULE INTO THE TEST SOCKET ON 
EACH OF THE PDP-BA OPTION BOARD *U»S' ( 

10'. SET ALL SWITCHES ON EACH OF THE PDP-SA OPTION BOARD *1<S 
TO THE OFF POSITION, AND POWER THE XQR BACK UP', 

12', LOAD ADDRESS TO 0021 JN F I EL 3 AND OEPOSjT 6303 
INTO THIS LOCATION, 

13', SET THE T J M£ OUT SWITCH ON THE PDP-8A XQR T^STgR 

TO THE SECOND POSITION', SET THE DEVICE CODE S w JTcHES 
ON THE XOR TESTER To 88 WHEN RUNNING THIS TEST', 

set board select jo others', 

14', load address to 0200 and press "clear" and then "qqntjnue"'. 

c, the program should now run untjl an xor error js encountered , 
at whiqh time the program will hang in a scope loop, looping 
on the test the error was encountered in, 

0. THE AREAS- OF LOGIC WHICH THE PROGRAM CAN NOT TEST ARE THE BAUD RATE 
MULTIPLEXER SECTION AND FRONT PANEL SECTION', IF THE BAUD RATE ON THE 
"MUT" SIDE IS A LOT HIGHER THAN ON THE "KGM" SIDE , A 
ERROR WILL NOT BE DETECTED , IF THE BAUD RATE DN THE "MUT" 
SIDE IS SLOWER THEN ON THE "KGM" SIDE A ERROR WjLL BE DETECTED; 

S',0 ERRORS 

S',1 1KC3-AA OPTION TEST 1 ERRORS 

ALL ERRORS DETECTED BT THE PROGRAM WILL RESULT IN AN 
ERROR HALT i REFER TO THE APPROPRIATE PROGRAM LISTING 
FOR THE CAUSE OF THE ERROR, 



s'.i'.i 



DKC8-AA OPTION TEST 1 ERRQR RECOVERy 

m mm m mm mm m m mm m mm m mm m m m m m «| m mm mm mm 



SET SWITCH REGISTER Z, X AND 2 TO A 1 AND PRESS 

"I NIT" AMD THEN "RUN", THERE may BE i OR MORE 

ERROR "ALTS, IF THE ERROR «A5 A DATA ERROR OR THE 0PTJ8N 

1*2 TEST MODULE WAS SUNG USED, THE PRQ8RAM IS NOW IN 

A SCOPE LOOP, 



3,2 REAL TIME CLOCK AND SERIAL LINE UNIT TIMING TEST ERRORS 



THE OPERATOR MUST DETECT ANY ERRORS IN THE REAL TJME CLOCK 
TIMING TEST OR THE SERIAL LINE UNIT TIMING TEST, ONCE 
THE PROGRAM IS STARTED, IT SHOULD HALT IN APPROXIMATELY 
30 SECONDS', ANY DEVIATIONS OF MORE THAN A 1/2 SECOND 
IS AN ERROR, 



5', 2,1 REAL TIME CLOCK AND SERIAL LINE UNIT TJMJN8 TEST ERROR RECOVER* 

AFTER CHECKING THE MODULE TO BE SETUP CORRECTLY , PRESS 
"RUN" OR RESTART THE TEST, IF THE ERROR STILL EXISTS, 
CHECK THE REAL TIME CLOCK FREQUENCY OR THE SERIAL LINE 
UNITS FREQUENCY, DEPENDING ON THE TEST BEING 
RUN, WITH A SCOPE, 



6,0 SWITCH REGISTER SETTINGS 



6.1 NORMAL OPERATING SWITCHES 

SR3 > l (04091 HALT PROGRAM AT COMPLETION OF A PROGRAM PASS 

6.2 rRRQR SWITCHES 



5R0 * 1 {4000} INHIBIT ERROR HALT 

SRI s l (2000) LOOP ON ERROR 

SR2 s 1 (1000) LOOP ON TEST SUCH AS TEST 1, TEST 2, ETC,,, 

7,0 REVISIONS 



SUPERCEDES MAINDEC-08-OJDKA-A 

8,0 PROGRAM DESCRIPTION 



5,1 DKC8-AA OPTION TEST 1 



#*##»*«#?HIS IS THE BEGINNING OF THE FIRST SEGMENTED IK VERSION 
OF THE PROGRAM IF MEMORY SIZE IS LESS THAN 4K", 



TEST 1 . CHECKS THAT INITIALIZE WILL CLEAR ALL FLAGS, 

ANY E^ROF? MAYBE DUE TO A FLAG STUCK ON OR THE JOT SKIPPED, 

THE 12 BIT PARALLEL I/O SUFFER IS CHECKED TO CONTAIN S4EROE3, 

HOWEVER, THE READ COMMAND (DBRD) MAY NOT WORK', THE TESTS 

WAITS FOR THE RTC FLAG TO SET AND CHECKS THE FLAG 

TO SKIP, NO INTERRUPTS SHOULD OCCUR, 

TEST 2 - IS THE FJRST SECTION OF THE REAL TIME CLOCK 
DIAGNOSTIC*, THIS TEST CHECKS THAT THE REAL TIME CLOCK 
(RTC) FLAG WILL SET AND THAT C AF WILL CLEAR IT*, PROGRAM 
IS CHECKED NOT TO INTERRUPT, 

TEST 3 - CHECKS THE RTC FLAG TO SET AND THAT JT CAN 
BE CLEARED By CLCL, . THE RTC FLAG IS CHECKED NOT TO 
CAUSE AN INTERRUPT, 

TEST 4 . CHECKS THAT RTC CLOCK INTERRUPT ENABLE CAN BE 
SET AND CLEARED By DATA BJT U AND CLLE USING THE 
RTC FLAG TO INTERRUPT ON, 

TEST 5 • CHECKS THAT RTC CLOCK INTERRUPT ENABLE CAN BE 
SET AND THAT CAF WILL CLEAR IT USING THE RTC FLAG TO 
INTERRUPT ON, 

TEST 6 « CHECKS THAT THE THREE RTC IOT'S, CLLEi CLCLi 

AND CLSK DON'T EFFECT THE AC, 

TEST 1 m JS THE FJRST SECTION OF THE 12 BjT PARALLEL J/O, 
THIS TEST CHECKS THAT DATA ACCEPTED AND DATA READY F/F'S 
TO 8E ZERO FOLLOWING A CAF , THE PROGRAM ISSUES THE IQT 
nBCF TO CLEAR THE DATA READY FLAG AND TO SET THE DATA 
ACCEPTED F/F, THE JOT OBST IS THEN ISSUED TO CHECK 
THAT IT WILL SKIP ON DATA ACCEPTED F/F AND THEN REISSUED 
TO CHECK THAT THE FJRST DBST CLEARED DATA ACCEPTED', 

TEST 8 m CHECKS THAT THE D*TA READY FLAG CAN BE SET AND CLEAREDi 
TO SET THE DATA RE AQ Y FLAG, THE PROGRAM ISSUES THE JOT DBTD TO 
TRANSMIT A'JD SET DATA AVAILABLE F/F, THE SETTJNG OF OATA 
AVAILABLE F/F IN LOOP BACK MODE SETS THE DATA READY F/F, 
THE JOT DBSK IS THEN ISSUED TQ CHECK THAT THE PLAQ JS SET 
AND THAT THE IQT WILL SKIP, THE PROGRAM THEN CLEARS THE 
OATA READY FLAG WITH OBC WHICH ALSO SETS DATA ACCEPTED F/F, 
THE DATA READY FLAG IS CHECKED TO BE CLEARED BY ISSUING A 
naSK AND DATA ACCEPTED F/F IS CHECKED TO BE SET BY ISSUING 
A OBST', THE DATA ACCEPTED F/F IS CHECKED AGAIN TO BE 
CLEARED ny ISSUING ANOTHER OBST 

TEST 9 . CHECKS THAT CAF WILL CLEAR THE DATA READY FLAG 
AND THE OATA ACCEPTED FLAG 

TEST 10 - CHECKS THAT PARALLEL I/O INTERRUPT ENABLE CAN BE 
SET AMD CLEARED BY OBSE AND DBCE USING THE DATA 
READY FLAG TO SKIP AND INTERRUPT ON, 

TEST 11 - CHECKS THAT INITIALIZE WILL CLEAR THE PARALLEL I/O 
INTERRUPT ENABLE F/F USING THE DATA READY FLAG TO SKIP 

AND INTERRUPT ON, 

TEST 12 - CHECKS THAT DATA ACCEPTED CAN CAUSE A INTERRUPT, USJNG 



OSCr TO SET DATA ACCEPTEOi AND OBSE TO SET INTERRUPT ENABLE, 

TEST 13 . CHECKS THE EFFECT OF THE 12 BIT PARALLEL I/O 
JOT'S ON THE AC i DBRQ SHOULD BE THE ONLY JOT TO CHANCE 
THE AC*, 

TEST 14 • CHECKS THAT ALL ONE'S CAN IE TRANSMITTED ANQ 
READ BACK ON THE 12 BIT PARALLEL I/O, IT ALSO CHECKS THAT 
CAF WILL CLEAR THE XMIT SUFFERS, INTERRUPTS ARE ALSO CHECKED', 

TEST 15 « CHECKS FOR A COMPLEMENTING DATA PATTERN OF ONE'S 
AND HEROES ON THE 12 BIT PARALLEL I/O AND THAT CAF WILL 
CLEAR THE DATA BUFFERS', THE PROGRAM IS CHECKED TO INTERRUPT, 

T£ST U • CHECKS FOR A COMPLEMENTING DATA PATTERN OF 
5252 • 2525 AND CHECKS THAT CAF WILL CLEAR THE DATA 
SUFFERS, THE PROGRAM JS CHECKED TO INTERRUPT', 

•this is the Beginning or the second ik version of the program 

IF MEMORY SIZE IS LESS THAN 4K', 

TEST 17 « CHECKS FOR AN INCREMENTING DATA PATTERN ON THE 
12 BIT PARALLEL I/O W PH INTERRUPT ENABLE ENABLED, 

TgST 18 - CHECKS FDR AN INCREMENTING DATA PATTERN ON THE 
12 BIT PARALLEL I/O WITH INTERRUPT ENABLE DISABLED', THIS 
ALLOWS FOR FASTER TRANSMITTING AND READING DUE TO THE 
ABSENCE OF A SKIP CHAIN, 

TEST 19 . JS TESTED ONLY IF A OPTJON 1+2 TEST MODULE JS 
9EJNG USED WITH THE PROGRAM , IF NO OPTION 1*2 TEST 
MODULE IS USEDi 50 TO TEST 23, TEST 19 CHECKS THAT THE 
STROBE F/F CAN BE SET BY 09SS AND TP3 AND THAT TIME 
STATE 1 CAN CLEAR IT, 

TEST 20 - USES THE OPTION 1+2 TEST MODULE TO CHECK THAT 
DATA AVAILABLE CAN BE SET 8y DBTD AND CLEARED By CAF', 

TEST 21 - USES THE QPTJQN 1+2 TEST MODULE To CHECK THAT 
OBTD WILL SET DATA AVAILABLE A N Q THAT DBST WILL CLEAR IT, 

TEST 22 - USES THE OPTION 1 * 2 TEST MODULE TO CHECK THAT 
DATA AVAILABLE CAN SE SET By DBTD AND CLEARED By »TS1«'. 

TEST 23 ■ IS THE FIRST SECTION OF THE SERIAL LINE UNIT (SLU) DIAGNOSTIC, 

THIS TEST TRIES TQ CLEAR THE SLU INTERRUPT ENABLE By ISSUING A 

K IE COMMAND, THE PROGRAM THEN TESTS THE SLU XMJT FLAG TO 

SET BY TFL AND CLEAR BY TCF, THE FLAG IS CHECKED WJTH 

TSF AND SPI, IF AN INTERRUPT 0CCURE5, IT MAY BE DUE 

TO SLU INTERRUPT ENABLE NQT BEING CLEARED BY K IE AND DATA 

BIT 11 EQUAL TO 0, 

TEST 24 - CHECKS THAT CAF WILL CLEAR THE SLU XMJT FLAG', 
THE PROGRAM CHECKS THAT NO INTERRUPTS OCCURED, 

TEST 25 . CHECKS THAT CAF "ILL S^T SlU I NT ENABLE AND THAT 
KJ| AND DATA 11 ON A (3 WILL CLEAR IT USING THE SLU XMJT 
PLAQ TO INTERRUPT ON, SPI IS CHECKED TO SKIP AND MOT 
TO SKIP, 



TEST 26 . CHECKS THAT SLU INTERRUPT ENABLE CAN BE SET 
AND CLEARED BY Kit AND DATA 8 J T n USING THE XMJT 
FLAG TO INTERRUPT ON, 

TEST 27 • CHECKS THAT TLS "ILL CLEAR SLU XMIT PLAG ANU THEM SET 
IT WITH xM!T BUFF MT H, THE PROGRAM THEN CLEARS THE XMIT PLAG 
AND WAITS POR RCV DATA AVAILABLE H TO SET RECEIVE PLAG', THE 
RECEIVE PLAG IS CHECKED TO SKJP AND INTERRUPT AND THEN TO 
CLEAR BY KCF, 

TEST 28 - CHECKS THAT TPC WILL NOT CLEAR SLU XMJT PLAG AND 
THAT IT WILL RESET IT, THIS TEST ALSO CHECKS THAT THE 
SLU RECEIVE PLAG WILL SET AND THAT IT CAN BE CLEARED 
BY KCC', 

#*..#.#. THIS IS THE BEGINNING OP THE THjRD IK VERSION OF THE 
PROGRAM IF MEMORY SIZE IS LESS THAN 4K, 

TEST 29 - CHECKS THAT KRB WILL CLEAR THE SLU RECEIVE FLAG, THE 
RECEIVE FLAG IS SET BY ISSUING A TLS, 

TEST 30 - CHECKS THAT CAF WjLL CLEAR THE SLU RECEIVE FLAG, 

TEST 31 • CHECKS THE EFFECT OF THE SERIAL LINE UNITS 
lOT'S UPHN THE AC, 

TEST 32 - CHECKS THAT ALL ZEROES CAN BE TRANSMITTED 
AND READ BACK ON THE SERIAL LINE UN IT', 

TEST 33 - CHECKS THAT ALL ONES CAN BE TRANSMITTED OR 
READ PACK ON THE SERJAL LINE UNIT', 

TEST 34 . CHECKS THAT A COMPLEMENTING DATA PATTERN (214)0-377) 
CAN BE TRANSMITTED AND READ SACk JN Th* SERIAL LINE UNIT, 

TEST 35 - CHECKS THAT A COMPLEMENTING DATA PATTERN <2S2-123> 
CAN BE TRANSMITTED AND READ BACK ON T«E SERIAL LINE UNIT, 

TEST 3* - CHECK FOR LOADING AND READING A BINARY COUNT 
PATTERN ON ThE SERIAL LINE UniT wjTh INTERRUPT ENABLE 
ENABLED, 

TEST 37 - CHECKS POH LOADING A N D READING A BINARY COUNT 
PATTERN WITHOUT SlU INTERRUPT ENABLE SET TO SAVE TImE 
IN SKIP-CHAIN SO THAT THE WQRQ CAN BE READ FASTER, 

IP NO OPTION 1*2 MODULd GO To TEST 42 

TEST 38 « USES THE SIMULATOR TO CHECK THAT READER RUN CAN 
BE SET BY KCC AND KRB ANO CLEARED BY INITIALIZE, 

TEST 39 • USES THE SIMULATOR TO CHECK THAT READER RUN WILL 
CLEAR AFTER A WORD HAS BEEN TRANSMITTED AND LOOPS BACK 
INTO THE RECEIVE BUFFERS USING THE 28 MA CURRENT LOOP 
POR 110 BAUD TO 9600 BAUD, 

##*#»*#«THIS IS THE BEGINNING OF THE FOURTH AND LAST SEGMENTED IK VERSION 
OF THE PROGRAM IF MEMORY SI2E IS LESS THAN 4K', 

IP THE OPTION 1*2 TEST MODULE JS NOT USEDi GO TO TEST 42', 



TEST 40 m USES THE OPTION 1+2 TEST MODULE TO TEST 

THE REAL TIME CLOCK FREQUENCY, NOT APPLICABLE FOR XQR TESTING 

TEST 41 • USES THE OPT J QN 1 * 2 TEST MODULE TO TEST 
THE SERUL LINE UNITS FREQUENCY FOR BOTH 20 MA 

*ND E I A LOOP BACKS FROM 110 BAUD TO 9600 BAUD', NOT APPLICABLE FOR XOR TEST INS, 

TEST <2 - JS AN INTERACTION TEST, THE TEST CHECKS THAT 

THE REAL TIME CLOCK , THE SERIAL LINE UNIT AND THE 

12 BIT PARALLEL I/O CAN RUN TOGETHER, THE AC AND LP'K 

ARE LOADED WITH SOME RANDOM paTa BEFORE THE INTERRUPT 

IS TURNED ON, THE PROGRAM CHECKS THAT AC AND LINK 

DON'T CHANGE AND THAT THE DATA CAN 3E TRANSMITTER 

AND READ BACK CORRECTLY , NOT APPLICABLE FOR XOR TESTING, 

3,2 REAL TfME CLOCK TJMING TEST 

IF THE COMPUTER CONSISTS OF LESS THAN 4K OF MEMORY, THIS 
TEST (RTCTIM) IS LOCATED I N IK SEGMENTED VERSION PART 4, 

REAL TfME CLOCK TIMING TEST IS A STOP WATCH TIMING TEST, ONCE 
THIS TEST HAS BEEN STARTED* THE PROGRAM TURNS THE INTERRUPT ON, AND 
COUNTS a CALCULATED NUMBER OF CLOCK FLAGS, WHEN THE PROGRAM 
HAS RECEIVED THE CALCULATED NyMgER OF CLOCK FLAGS IT HALTS 

THE COMPUTER, THE TIME FROM START TO FINISH SHOULD 9E 30 SECONDS */» HALF A SECOND. 
9 '.3 SERIAL LINE UNIT TIMING T£ST 

IF THE COMPUTER CONSISTS OF LESS THAN 4K OF MEMORY, THIS TEST 
( SLUT I M ) IS LOCATED IN IK SEGMENTED VERSION PART 4', 

SERIAL LINE UNIT TIMING TEST IS ALSO A STOP WATCH TIMING TEST, 
ONCE THIS TEST HAS SEEN STARTED, THE PROGRAM TURNS THE INTERRUPT 
ON A'-'D TRANSMITS A CALCULATED NUMBER OF CHARACTERS (DETERMINED 
PROM THE BAUD RaTE AND NUMBER OF STOP BITS) , THE PROGRAM 
SHQUL HALT IN 30 SECONDS +/- H*LF A SECOND , 

9', PLOW CHARTS 

NOT APPLICABLE 
10,0 PROGRAM LISTINGS 
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////////'///'/'/////////////////////////////////////////////////////////, 
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/.'C8.AA OPTION TEST 1 MA I NDEC»0«.D JOKA.B.L iK 
> 

/COPYRIGHT !C) 1974, 1979 ■J I G I TAU EQUIPMENT CORPORATION 



/PR0G««i. 
/ 



= R'JTE HANSEN 



/PROCESSOR INSTRUCTIONS 

6007 CAF.6007 

6102 SPL"6102 

MM CAL'SIM 

4131 SBE«610l 

7402 HLT»7402 

6244 RMF.6244 

61)05 RTF"6005 

6004 5TP"6S04 

/OPTION BOARD NUMBtR 1 JOT'S 



//SERIAL LINE UNIT 

/RECEIVER JOTS 
6030 KrfUZl 
iS3% KSF«6<!Ji 
6(32 KCC46B32 

6134 KRS.6B34 
6035 KIE»6035 

6136 KRB.6336 

/TRANSMIT I0TS 

6140 TrL»604B 

6041 TSP"6041 

6042 TCF»6042 
6044 TPCI6044 
6(45 SPI46045 
6046 TLS*6046 

/REAL TIME CRYSTAL CLOCK 

6135 CLLE"6l35 

6136 CLCL«61« 
4137 CLSK'6137 

/IS BIT PARALLEL I/O 

6570 D3ST-657? 

65U d8SK«6571 

6572 DBRD.6572 

6JT3 33CF«697J 

6J74 D3TJI6574 

6575 3BSEI6575 

6J76 08CEH976 



/CLEAR ALL FLAGS 
/SKIP ON AC LOW FLIP-FLOP 
/CLEAR AC LOW FLIP-FLOP 
/SKIP ON BATTERY EMPTY 

/RESTORE MEMORY rjELO 



/CLEAR RECEIVE FLAG i flON'T SfT R£A0E» RUN 

/Skip on Receive flag 

/clear receive flag ano ac, set reader run 
/read receive buffer 
/ac u«l set interrupt enable 
/ac u»0 clear interrupt enable 
/clear receive flag ano ac, set reader run ano read 
/receive buffer 



/SET TRANSMIT FLAG 
/SKIP ON TRANSMIT FLAG 
/CLEAR THE TRANSMIT FLAG 
/LOAD TRANSMIT BUFFER ANO TRANSMIT 

/SKIP JF TRANSMIT OR RECEIVE FLAG SET ANO INT ENA SET TO 
/LOAD TRANSMIT BUFFER, TRANSMIT ANO CLEAR TRANSMIT FLAO 



A 1 



/AC SET INTERRUPT ENABLE 

/AC 1190 CLEAR INTERRUPT ENABLE 
/CLEAR CLOCK FLAG 
/SKIP ON CLOCK FLAG 



/skip on data accepted, cleah data accepted and data available 
/skip on data Ready flag 
/read data into ac 0-11 

/CLEAR DATA READY PLAG, ISSUE OATA ACCEPTED OUT 
/LOAD AC 0.11 INTO BUFFER AND TRANSMIT DATA OUT 
/SET INTERRUPT ENABLE TO A 1 
/SET INTERRUPT ENABLE TO A 



/OKC«»»A OPTION TEST 1 MAINBEC-0B-DJOKA-B-L 4K PAL10 V142A 16-JUN-75 

6ST7 OBSS-6577 /ISSUE A STROBE PULSE 

/SWITCH REGISTER SETTINSS 

/SS0>1 • INHIBIT ERROR HALT 

/SR1«1 • LOOP ON ERROR 

/SR2«i • LOOP ON TEST 

/SRJil ■ HALT AT COMPLETION OF A PROGRAM PASS 
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6150 
6151 
4156 
6157 
6160 
6161 
6162 
6163 
6145 
S167 



/OPTION BOARD 1 SIMULATOR JOT'S 

CLRSIM8615B /CLEAR SIMULATOR CONTROL REGISTERS 

L0A05MI6151 /LOAD 5 1 MULATOR CONTROL WORD 1 

CLRDET-6156 /CLEAR REASER RUN, STROBE, ANO DATA AVAILABLE CATCHER r/F<t 

SKPR0RP6157 /SKIP ON READER RUN CATCHER F/F |ET 

5JMCLRR6160 /CLEAR CONTROL REGISTERS AND MOST OF LOGIC ON SIMUALTOR 

STRFR9P6161 /START FREQUENCY CHECK (SLU OR RTCI 

SKPFRQ«6162 /SKIP ON FREQUENCY CHECK IN PROGRESS 

LODFRO»«l63 /READ FREOUENCY COUNT INTO AC 

SKPOAVP6165 /SKIP ON DATA AVAILABLE CATCHER F/F SET 

SKPSTRI6167 /SKIP ON STROBE CATCHER F/F SET 

/OPTION BOARD 1 SIMULATOR CONTROL WORD BIT ASSIGNMENTS 

/BIT COUNTER RESET 1»*5T|VAT[ 
/ S»NO ACTION 



/BIT 
/ 

/BIT 

/BIT 

/BIT 

/BIT 
/ 



PARALLEL I/O CLEAR QATA 
AVAILABLE SELECT 

NOT USED 

NOT USED 

NOT USED 

RTC FREQUENCY OR 
SLU FREQUENCY CHECK 



»T51 

JI-OATA ACCEPTED IN 



l'RTC 

d«SLU BAUD RATES 



/BIT 
/ 



/BIT 
/ 



/BIT 
/ 



REAL TIME CLOCK 
SLU EIA/20MA SELECT 
STOP BIT SELECT ' 



leOFF 
"■ON 



1PEIA RECEIVE DATA 
3-28 MA RECEIVE OATA 



111 STOP BITS 
0!2 STOP BIT 



/BIT 9 
/BIT 10 



BAUD RATE SELECT 
BAUD RATE SELECT 



BIT 9, 10, 11 ALL 0'S 
EQUALS 110 BAUD, EACH 



/BIT 11 
/ 



BAUD RATE SELECT 



INCREASING BIT SELECTS 
NEXT HIGHEST BAUD RATE', 
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91TB 


XRON«6170 




61T1 


SKXRMin 


/SKI 


6172 


XRCIMITJ 


/CLE 


6173 


STIPH173 


/SKI 






/SET 


6175 


SXPC.4175 


/SKI 


6174 


XRT0.4174 


/SET 



P IT CPROR 1 rLOP SET 

AR INTERRUPT ENABLE 

P IT HUT POWER AND 1ST SRQN 

INT ENABLE 
• ir ERROR 2 AND CLEAR IT 

TIME OUT 



000Z 3302 
4244 



0003 



HZ?.? 



5403 
3244 



4423 
21223 3200 
4424 
3024 3221 
4425 
3352 
4426 

0026 3602 
4427 

0027 3475 
4430 

0030 3711 
4431 

0031 3327 
4432 

0032 3341 
4433 

0033 3653 
4434 

0034 3734 
4439 

k)035 3407 
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302 /PROGRAM REVISION LETTER. MA I NOEC.08-DJOKA.B 

RMF /RESTORE MEMORV FIELDS 

JMP I 3 /RETURN TO INTERRUPT SERVICE ROUTINE 

SJMJNT/SKPBHN/SIMCHK/RTCINT/SLUINT /INTERRUPT SERVICE ROUTINES 



0020 0000 SWITCH, 

0021 2003 OP1SEL, 2003 



0P2SEL, 



LOOPPC»JMS I , 



/BIT 0s0 USE LOCATION 20 AS A PSEUOO SWITCH REGISTER 

/BIT 0»1 USE HARDWARE PRONT PANEL SWITCH REGISTER 

/BIT 111 HAS OPTION 1 

/BIT 2ll HAS OPTION 2 

/BIT 3ll HAS 8A CPU SIMULATOR 

/BIT 4il HAS SA OPTION 1*2 SIMULATOR 

/BIT 5U PROGRAM ON POP-BA X0R(»EOUIRES SIT 4 SET ALSO) 

/BIT 4«1 HAS PBP.SE TYPE CPU 

/BIT 7.11 HEMORY SI2E . S'StlK, J7.32K', MEMORY 

/SIZE CAN BE INCREASED IN IK INCREMENTS SY ADDING 

/ONE TO THE NUMBER IN BITS 7 . 11 

/BIT IS SET TOR THE ACT LINE 



PCLOOP 

1 , 

LOPOON 
I , 

WTCLSK 
I , 

DATPIO 
ERROR" JMS I, 

AERROR 
PIOOER.JMS I, 



DONLOP'JMS 
OLSKWT.JMS 



PIOBAT'JMS 



TSPWAT.JHS 
KSFHAT'JMS 



SLUDAT'JMS 
SLUOER.JMS 



SWHCHK'JHS 



OERPIO 
I , 

WATTSF 
I , 

WATKSF 
I. 

DATSLU 
I . 

OERSLU 
I, 

CHKSWH 
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4436 

0036 3741 
4437 

0037 3214 
4146 



SI«CHK«JMS I, 

CHKSIM 
LODSIM.JMS I ', 

SIMLOD 
PTCENA=JMS ENARTC 



5440 

340 3400 



PRGENO.JMP I , 

ENDPAS 



/LOCATIONS USED BY THE PROGRAM 



0041 


3000 


INTFLG, 





0042 


3000 


CLKFLG 1 


3 


0043 


2000 


ONTi 


e 


0044 


2000 


CNU, 





0045 


0000 


TEST, 





0046 


3000 


TSTLOP, 





0047 


3000 


TSTCNT, 





0050 


0000 


SAVONT, 





0051 


0000 


PIOXMT, 





0052 


3000 


PIOREO, 





0053 


3000 


SLUXMT, 


3 


0054 


0000 


SLUHEC, 


3 


0055 


3000 


30NTWO, 





0056 


3377 


K377, 


377 


0057 


3200 


K200, 


200 


006E 


3252 


K252, 


252 


0061 


'125 


K12S, 


125 


0062 


5252 


K5252, 


5252 


0063 


2525 


K2525, 


2525 


0064 


3007 


K7, 


7 


0065 


7774 


M4i 


-4 


0066 


7770 


«10, 


-13 


0067 


2000 


SIMCMT, 





0070 


4160 


DELAYH, 


DELAY 


0071 


3000 


expacq, 





0073 


3000 


LINK, 


3 


0073 


3000 


XMTFLG, 





0074 


3000 


BECFLO, 





0075 


3000 


RTCFLG, 





0076 


3000 


P'lOI'lT, 


3 


0077 


3000 


INACTV, 





0100 


6520 


SADPAS, 


6520 


0101 


6530 


SOOOPS, 


6500 


0102 


7634 


ACTCNT, 


• 144 


0103 


7634 


1144, 


• 144 



/ACT LINE ERROR RETURN TO FIELD 7 
/ACT LINE SOOU RETURN TO FIELD 7 



/ROUTINE TO SETUP FIELD 3 TO HANDLE INTERRUPTS FROM ANOTHER FIELD 



0104 
0105 



0000 PATCH, 3 

1504 TAD I PATCH /GET THE INTERRUPT SERVICE AODR'ESS 



/DKSi.AA O'TICN TEST 1 MA [NDEOI0-DJOKA.8.L 4* FAL10 Vl«2A 16.JUN.7! 



a tit »*»r 1.4 



010* 


3124 




OCA 


SAVADO 


/SAVE INTERRUPT ADDRESS 


010? 


6201 




cdf 




/CHANQE DATA FIELD TO FIELD 


0110 


1131 




TAD 


KRHF 


/GET THE INSTRUCTION RMF 


1111 


3525 




OCA I 


Kt 


/PUT IT IN LOCATION 1 OF FIELD 


0112 


1130 




TAD 


KJMP 


/GET THE INSTRUCTION JMP J 3 


0113 


3526 




OCA I 


K2 


/PUT IT IN LOCATION 2 OF FIELD 


0114 


1124 




TAD 


5AVADD 


/ucT THE INTERRUPT SERVICE ASQRE55 


0115 


3527 




OCA I 


K3 


/PUT IT IN LOCATION S IF FIELD 


0116 


6224 




R|F 




/GET THE PROGRAM FIELO INTO THE AC 


0117 


1132 




TAB 


KCDF 


/AND IT TO THE COF INSTRUCTION 


0150 


3121 




OCA 


i*l 


/PUT IT IN THE NEXT LOCATION 


0121 


7402 




HLT/COF 




/EXECUTE IT 


0122 


2104 




IS? 


PATCH 


/A80 1 TO THE ENTRANCE 


0123 


5504 




JMP ! 


PATCH 


/RETURN 


01J4 


2000 


SAVABD, 









0125 


3001 


Kli 


1 






0126 


3002 


K2i 


2 






0127 


3003 


K3i 


3 






0130 


5433 


KJMP, 


JMP I 


3 




0131 


6244 


KFW, 


6244 






01S2 


6201 


kcdf, 


CDF 






0133 


6005 


KRTF, 


RTF 






01S4 


3000 


ACTFLG, 









3135 


0000 


CLKSN5, 










/THJS ROUTINE US EB WHEN RUNNING ON THE AcT LINE TO SIGNIFY THAT NO 
/ERRORS HAVE BEEN ENCOUNTERED 



0136 0000 TIT8OO1 

013? 1022 TAD 

0140 7700 SMA 

0141 "S536 JM' 

0142 6002 I Or 

0143 S272 CIF 

0144 4581 JMS 

0145 5536 UMP 



0P2SEL 
CLA 

TSTGQD 
70 

GOOOPS 
TSTGOD 



/GET THE HARDWARE F L AG 

/ARE WE ON THE ACT LINE? 

/NO, RETURN TO THE PROGRAM 

/TURN THE INTERRUPT OFF 

/CHANGE THE INSTRUCTION To FIELD 7 

/GO TO PROM 

/RETURN TO THE PROGRAM 



SPA 



0146 0000 ENARTCi 

0147 1022 TAD 

0150 7710 K7710, 

0151 7301 

0152 6135 

0153 7200 

0154 5546 



0200 



'200 



0P2SEL 
CLA 

CLA CLL I AC 
CLLE 
CLA 

JMP I ENARTC 



/CHECK TO SEE IF ON ACT LINE 
/IF NOT CLEAR RTC INT ENA 
/SET AC BIT 11 

/LOAD BIT U INTO CLOCK INT ENA 



/INITIALIZATION TEST 

/TEST 1 . CHECKS THAT INITIALIZE WILL CLEAR ALL FLAGS, 



ANY ERROR MAYSE DUE TO A 
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/FLAG STUCK ON OR THE 15* SKIPPED, THE PARALLEL I/O BUFFER IS CHECKED TO CONTAIN 
/ZEROES , HOWEVER, THE READ COMMAND (6572) MAT NOT WORK', THE TEST WAITS FOR THE 
/RTC FLAG TO SET AND CHECKS THE FLAG TO SKIP, NO INTERRUPTS SHOULD OCCUR 
/NOTE I INITIALIZE SETS THE SERIAL LINE UNJTIS INTERRUPT ENABLE. 



0200 


6160 


TEST1, SIMCLR 


0201 


4104 


JMS PATCH 


0202 


3244 


SIMINT 


0203 


4423 


LOOPPC 


0204 


7777 


•1 


0205 


4436 


SJMCHK 


0206 


4020 


4000 


0207 


4437 


LODSIM 


0210 


3041 


OCA I NTFLG 


0211 


6007 


CAF 


0212 


6001 


ION 


0213 


6031 


KSF 


0214 


7410 


SKP 


0215 


4427 


ERROR 


0216 


6041 


TSF 


0217 


7410 


SKP 


0220 


4427 


FRROR 


0221 


6045 


5PI 


0222 


7410 


SKP 


0223 


4427 


ERROR 


0224 


6571 


OBSK 


0225 


7410 


SKP 


0226 


4427 


ERROR 


0287 


6570 


DBST . 


0230 


7410 


SKP 


0231 


4427 


ERROR 


0232 


7240 


CLA CMA 


0233 


6572 


DBRD 


0234 


7410 


SKP 


0Z35 


4427 


ERROR 


0236 


7640 


SZA CLA 


0237 


4427 


ERROR 


0240 


4425 


CLSKWT 


0241 


4427 


ERROR 


0242 


1041 


TAO INTFLG 


0243 


7640 


SZA CLA 


0244 


4427 


ERROR 


0245 


4424 


DONLOP 



/SETUP INTERRUPT SERVICE 

/STORE THE LOOPING PC AND SETUP TEST COUNT 

/SETUP SIMULATOR ITERATION COUNTER 

/CHECK FOR SIMULATOR 

/CONTROL WORD FOR SIMULATOR 

/LOAD SIMULATOR- TEST LOOP USING SIMULATOR 

/CLEAR PROGRAM INTERRUPT FLAG 

/INITIALIZE THE MODULE • CAF SETS INT ENA ON SLU 
/TURN THE INTERRUPT ON 
/SKIP ON RECEIVE FLAG 

/RECEIVE FLAG SET OR KSF SKIPPED 
/SKIP ON TRANSMIT FLAG 

/TRANSMIT FLAG SET OR TSF SKIPPED 
/SKIP ON XM1T/RECEIVE * INT ENA 

/0 SIDE OF XM|T/RECEIVE HELD LOW OR SPt SKIPPED 
/SKIP ON DATA READY FLAG 

/DATA READY FLAG SET OR 0B5K SKIPPED 

/SKIP ON DATA ACCEPTED IT AND DATA AVAILABLE 

/DBST SKIPPED OR DATA ACCEPTED SET 

/SET THE AC TO ALL ONES 

/READ THE 12 BIT PARALLEL I/O BUFFER 

/DBRD SKIPPED 

/CAF FAILED TO CLEAR XMJT BUFFER OR DBRD FAILED. 
/WAIT FOR REAL TIME CLOCK FLAG TO SET 
/CLOCK FLAG FAILED TO SET WJTHIN A ISZ LOOP 
/DID THE PROGRAM INTERRUPT 

/PROGRAM INTERRUPTED • ALL FLAGS ZERO EXCEPT CLK FLG 
/CHECK TO SEE IF DONE, OR LOOP ON TEST IF SR2U 



/«•• 



//FIRST SECTION OF THE REAL T!M£ cLOcK DIAGNOSTIC 

/TEST 2 - CHECKS THAT KLKL TICK ulLL SET CLK FLAG ANO THAT CAF WILL CLEAR IT, THE 
/PROGRAM IS CHECKED NOT To TO INTERRUPT, 

/•*##•##»»•*##•*»##«## ••««»«•**••»*««*«•«•««#»«»*«»«»«»«»*««»»»•«•«»•* 



0246 4104 TESTS, JMS PATCH 

0247 3252 SKPCHN 

0250 7240 CLA CMA 

0251 3042 OCA CLKFLG 



/SETUP INTERRUPT SERVICE 



/SET INTERRUPT CHAIN TO ACKNOWLEDGE CLOCK INTERRUPTS, 



/VAMt.lA «•*?** W t N»|tl8tB»ii»«JBM«Ut 4K »ALtt VW24 i4»JUN.ri l|H Mlt t*« 

229! 4423 LOOPPC /SITUP TEST COUNT AND SCOPE LOOPING ADDRESS 

1293 7777 .1 /SIMULATOR ITERATION COUNTER 

(294 4414 SJHCHK /CHECK T8 SEC !P SIMULATOR IS SELECTED 

8299 we 4(10 /CONTROL WORD FOR THE SIMULATOR 

• 291 4437 LOOSIM /LOAD SIMULATOR IF SELECTED ALSO SET SCORE 

/LOOP • THIS ADDRESS |P SIMULATOR SELECTED 
/OTHERWISE SCOPE LOOP IS THIS ADDRESS it 

■297 TJ44 CL» CLL CMA RAL /SETUP A PROGRAM LOOP TO LOOK AT 2 CLOCK fUCI 

•It) HIS 8C» CLKSNC /TO SYNC THE REAL TIME CLOCK 

1211 3141 OCA INTFLG /CLEAR PROGRAM INTERRUPT FLAG 

19212 »(f7 CAr /CLEAR ALL FLAej BUT SET INT EVA ON JLU 

8213 till ION /TURN THE INTERRUPT ON 

• 244 4429 CLSKWT /WAIT POR THE CLOCK FLAG TO SET 

•2*1 4417 ERROR /CLK FLAS FAILED TO SET OR ND KL«L TICK PULSE 

1244 1141 TAD INTFLG /GET THE PROGRAM INTERRUPT FLAG 

• 247 7441 SEA CLA /DID IT INTERRUPT? 

1270 4417 ERROR /PROGRAM INTERRUPTED WITHOUT CLK INT SNA 

• 271 2l« IS1 CLKSNC /2ND FLAG SET? 

1272 9211 JMP ,.11 /NO, GO AND THV TO CLEAR CLK FLAG H I TH CAF 

127S 1107 CAF /CLEAR ALL FLAGS BUT SET SLU'S INT ENA 

1274 4(11 ION /TURN THE INTERRUPT BACK ON 

1279 4137 Ci.SK /SKIP ON THE CLOCK FLAG 

1274 741* SKP CLA 

1277 4427 ERROR /CAF FAILED TO CLEAR CLK FLAG OR CLSK SKIPPED, 

0311 1(41 TAD intflg /get the program interrupt flag 

11«1 7441 52A CLA 

13(2 4427 ERROR /PROGRAM INTERRUPTED WITHOUT CLK INT ENA * CLK FLAG 

0313 4424 DONLOP /REPEAT TEST IP NOT DONE OR LOOP ON TEST IP SRI«t 

/TESrr"sHEcKS*THAT*KLKL^ cIVfLAG AN S *THAT IT ;AN*Ie CLEARED SV eLcL. 
/THE CLK FLAG IS CHECKED NOT TO CAUSE AN INTERRUPT; 

/•••»•••••#•»#•••••#•••»•#••••••••••»••»**»*••»•••••**•«•«•*«»*•••*•»• 

1314 4423 TESTS, LOOPPC /SETUP TEST COUNT AND SCOPE LOOPING ADDRESS 

0315 7777 -1 /SIMULATOR ITERATION COUNTER 

1314 4434 SIMCHK /CHECK TO SEE IF SIMULATOR IS SELECTED 

1317 4etl «10B /CONTROL WORD FOR THE SIMULATOR 

1311 44S7 LOOSIK /LOAD SIMULATOR IF SELECTED ALSO SET SCOPE 

/LOOP ■ THIS ADDRESS IF SIMULATOR SELECTED 
/OTHERWISE SCOPE LOOP IS THIS ADORES! *i 

1311 7144 CLA CLL CMA PAL /SETUP A PROGHAM LOOP TO LOOK AT 2 CLK FLAGS TO 

1312 3139 OCA CLKSNC /SYNC THE REAL TIME CLOCK 

1313 3141 OCA INTFLG /CLEAR PROGRAM INTERRUPT FLAG 

1314 48(7 CAF /CLEAR ALL FLAGS BUT SET I NT ENA ON SLU 
0319 6191 ION /TURN INTERRUPT ON 

1314 4429 CLSKWT /WAIT POP CLK FLAG 

1317 4427 ERROR /CLOCK FLAG FAILED TO SET 

1321 1141 - TAD INTFLG /GET THE PROGRAM INTERRUPT FLAG 
•321 7»48 SEA CLA /OIO IT INTERRUPT 

1322 4427 ERROR /PROGRAM INTERRUPTED WITH CLK INT ENA, 

1323 2139 IS! CLKSNC /2N0 FLAG SET? 

8324 9313 JMP ,.11 /NO, GO CLEAR THE FLAG WITH CAF AND WAIT FOR NEXT ONE 

1329 6134 CLCL /CLEAR THE CLK FLAS 

0324 Till SKP CLA 



OPTION 


TEST 1 


MAIN0EC85.0UDKA.B.L 4K 


0327 


4427 


ERROR 


1330 


4137 


CLSK 


1331 


74U 


SKP CLA 


1332 


4427 


ERROR 


1333 


1141 


TAO INTFLG 


1334 


7»4| 


SZA CLA 


1339 


4427 


ERKOP 


1334 


4424 


DONLOP 
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/CLCL SKIPPED 
/SKIP ON CLOCK FLAG 

/CLCL FAILED TO CLEAR CLK FLAG 
/GET THE PROGHAM INTERRUPT FLAG 
/DID THE PROGRAM JNTERRU'T? 

/PROGRAM INTERRUPTED, COULD BE CLCL SHORTED TO CLLE 
/REPEAT TEST IF NOT DONE OR LOOP ON TEST IF SR2.1 



/TEST 4 ■ CHECK THAT C LK I NT ENA {AN BE SET AND CLEARED *Y 0ATA BIT 11 
/AND CLLE USING THE CLK FLAG TO INTERRUPT ON 

/#••••»•»«•#•.••••#»•••»•••••#••*•••••*•*•••••»•.•••*••*•*•••***»***** 



0337 4423 
1341 7777 



1341 
1342 



4434 

4211 



1343 4437 



0344 
3345 
1346 
0347 
1353 
1391 
0352 
1393 
1354 
1355 
0394 
1357 
1361 
1361 
0362 
0363 
0364 
0365 
0366 
0367 
0371 
0371 
1372 
1373 
1374 
1375 
1376 
1377 
0411 
0411 
0412 
1413 
84f 4 
0485 



7344 
3135 
3141 
6887 
6(11 
4429 
4427 
1(41 
7641 
4427 
2139 
5]4I 
6136 
6137 
7618 
4427 
7301 
6135 
7611 
4427 
1841 
7648 
4427 
4425 
4427 
2841 
4427 
3(41 
6139 
6111 
7]C8 
1(41 
'6*1 
4427 



TEST4, LOOPPC 
•1 

SJHCHK 
• HI 

LODSIM 



CLA CLL CMA 
OCA CL*SNC 
OCA INTFLG 
CAF 

ION 

CLSKWT 
ERROR 

TAO INTFLG 
SZA CLA 
ERROR 

IS! CLKSNC 

JMP ,.11 

CLCL 

CLSK 

SKP CLA 

ERROR 

CLA CLL IAC 
CLLE 
SKP CLA 
ERROR 

TAD INTFLG 
SHA CLA 
ERROR 
CLSKWT 
XORENA, ERROR 

IS? INTFLG 
ERROR 

OCA INTFLG 

CLLE 

ION 

CLA CLL 
TAD INTFLG 
52A CLA 
FRROR 



/SETUP TEST COUNT AND SCOPE LOOPING ADDRESS 
/SIMULATOR ITERATION COUNTER 
/CHECK TO SEE IF SIMULATOR IS SELECTED 
/CONTROL WORD FOR THE SIMULATOR 
/LOAD SIMULATOR IF SELECTED ALSO SET SCOPE 
/LOOP . THIS ADDRESS IF SIMULATOR SELECTED 
/OTHERWISE SCOPE LOOP IS THIS ADDRESS *1 
PAL /SETUP A PROGRAM LOOP TO L00< AT 2 CLK FLAGS 
/TO SYNC UP THE REAL TIME CLOCK 
/CLEAR PROGRAM INTERRUPT FLAG 
/CLEAR ALL FLAGS BUT SET INT ENA ON SLU 
/TURN THE INTERRUPT ON 
/WAIT FOR THE CLK FLAG 
/CLK FLAG FAILED TO SET 
/GET THE PROGHAM I NTFRRU°T FLAG 
/DID THE PROGRAM INTERRUPT? 
/FLAG INTERRUPTEO WITHOUT CLK IN' ENA 
/2ND FLAG SET? 

/NO, GO CLEAR FLAG WITH CAF AND WAIT FOR NEXT FLAG 
/CLEAR THE CLOCK FLAG 
/SKIP ON CLOCK FLAG 

/CLCL FAILED TO CLEAR CLK FLAG 
/SET DATA SIT U TO A ONE 
/TRY AND SET CLK I NT ENA 

/CLLE SKIPPED, 

/GET THE PROGRAM INTERRUPT FLAG 

/PROGRAM INTERRUPTED WITHOUT CLK FLAG SET 
/WAIT FOR NEXT CLK FLA! 
/CLK FLAG FAILED TO SET 
/DID THE PROGRAM INTERRUPT 

/CLLE FAILED TO SET CLK INT ENA OR FAILED TO INT 
/CLEAR THE PROGRAM INTERRUPT FLAG 
/CLEAR CLK INT ENA 
/TURN THE INTERRUPT ON 

/GET THE PROGRAM INTERRUPT FLAG 
/DID IT INTERRUPT? 

/YES, CLLE FAILED TO CLEAR CLK INT ENA 
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0406 6136 CLCL /CLEAR TME CLOCK FLAG 

0407 H37 CLSK /SKIP ON CLOCK FLAG 
0413 7610 SKP CIA 

0411 4427 ERROR /ERROR CLCL FAILED TO CLEAR CLOCK FLAG 

0412 4484 OQNLOP /REPEAT TEST IF NOT DONE OR LOOP ON TEST IF SR2?1 



/TEST 3 - CHECKS THAT CLK INT ENA CAN BE SET AND THAT CAf HILL CLEAR IT 
/USING THE CLK FLAG TO INTERRUPT ON, 

/*«*««ae«»*««««*«*»»»««**»«»«*#»««««*«#«*»«*«*««»«**««»*«»««jt#**i»*«»«* 



0413 
0414 
0415 
0416 
0417 



0420 
0421 
0422 
0423 
0424 
0425 
0426 
0427 
0430 
0431 
0432 
0433 
0434 
0435 
0436 
0437 
0440 
0441 
0442 
0443 
0444 
0445 
0446 
0447 
0450 
0451 



4423 
7777 
4436 
4800 
4437 



7344 
3135 
3041 
4007 
6001 
4425 
4427 
1041 
7640 
4427 
2135 
3222 
7301 
6135 
7300 
2041 
4427 
6007 
6001 
4425 
4427 
1041 
7640 

4427 
6136 
4424 



TEST5, 



0452 4423 

0453 7777 

0454 4436 

0455 4000 

0456 4437 



LOOPPC 
-1 

SIMCHK 

4000 

LODSIM 



CLA CLL CM* 
OCA CLKSNC 
OCA INTFLG 
CAF 
ION 

CLSKWT 
ERROR 

TAD INTFLG 
SZA CLA 
ERROR 

IS2 CLKSNC 
JMP ,-U 
CLA CLL IAC 
CLLE 

CLA CLL 

IS? INTFLG 

ERROR 

CAF 

ION 

CLSKWT 
ERROR 

TAB INTFLG 
SZA CLA 
ERROR 
CLCL 
DONLOP 



/SETUP TEST COUNT AND SCOPE LOOPING ADDRESS 
/SIMULATOR ITERATION COUNTER 
/CHECK TO SEE IF SIMULATOR IS SELECTED 
/CONTROL WORD FOR THE SIMULATOR 
/LOAD SIMULATOR IF SELECTED ALSO SET SCOPE 
/LOOP » THIS ADDRESS IF SIMULATOR SELECTED 
/OTHERWISE SCOPE LOOP IS THIS ADDRESS il 
RAL /SETUP A PROGRAM LOOP TO LOOK AT 2 CLOCK FLAGS 
/TO SYNC UP THE REAL TIME CLOCK 
/CLEAR PROGRAM INTERRUPT FLAG 
/CLEAR ALL FLAGS AND SET I NT ENA ON SLU 
/TURN THE INTERRUPT ON 
/WAIT FOR THE CLOCK FLAG 
/CLK FLAG FA I LSD TO SET 
/GET THE PROGRAM INTERRUPT FLAG 

/PROGRAM INTERRUPTED WITHOUT CLK I NT ENA 
/2'ID FLAG SET? 

/NO, GO CLEAR FLAG AND WAIT FOR NEKT 

/SET INTERRUPT I NABLE TO A ONE 
/SHOULD INTERRUPT HERE 
/DID THE PROGRAM INTERRUPT 

/PROGRAM FAILED TO INTERRUPT WITH CLK FLAG ♦ CLK I NT ENA 
/CLEAR ALL FLAGS 

/WAIT FOR CLK FLAG 

/CLK FLAG FAILED TO RESET 

/GET THE PROGRAM INTERRUPT FLAG 

/DID IT INTERRUPT 

/CAF FAILED TO CLEAR CLK I NT ENA 

/CLEAR THE CLOCK FLAG 

/REPEAT TEST JP NQT DONE OR LOOP ON TEST IF SR2»1 



/•••♦»••••**•♦••••#••*•*»•«•#•#•♦•••♦••«••••♦•••••#••••••••••#»••♦*••• 

/TEST 6 - CHECKS THAT THE THREE RTc IQT'S OONIT EFFECT THE Ac 
/•*««••« »»*»••»•»»«•»««««•*«*»#*« ««•#»»•»*«••«•»»•»«»•»»# »»•«»#»»••*»• 



TEST6, LOOPPC 
■1 

SJMCHK 

4000 

LOOSIM 



/STORE THE TEST LOOPING PC 

/SIMULATOR ITERATION COUNTER 

/CHECK TO SEE IF SIMULATOR IS SELECTED 

/CONTROL WORD FOR THE SIMULATOR 

/LOAD SIMULATOR IF SELECTED ALSO SET SCOPE 



/DKCS.AA OPTION TEST j, MAINUEC-08.DJDKA.Si-L 4K PAL10 "142A 16-JUN.75 8 1 56 PAGE 2.9 



0457 
0460 
0461 
0462 
0463 
0464 
0465 
0466 
0467 
0473 
0471 
0472 
0473 
0474 
0475 
0476 
0477 
0500 
0501 
0502 



6007 
6001 
7344 
6135 
1126 
7640 
4427 
7240 
6136 
7001 
7640 
4427 
7240 
6137 
7000 
7001 
7640 
4427 
4484 
4136 



CAF 
ION 

CLA CLL 
CLLE 
TAD K2 
SEA CLA 
ERROR 
CLA CMA 
CLCL 
IAC 

SZA CLA 
ERROR 
CL* CM» 
CLSK 
NOP 
I AC 

SZA CLA 
ERROR 
OONLOP 
JMS 



/LOOP = THIS ADDRESS IF SIMULATOR SELECTED 
/OTHERWISE SCOPE LOOP IS THIS ADDRESS *1 



CMA RAL 



/CLEAR CLK I NT EANRLE 

/CLIE CHANGED THE AC 
/CLEAR CLOCK FLAG 

/CLCL CHANGED THE AC 
/SKIP ON CLOCK FLAG 



/CLSK CHANGED THE AC 

/CHECK TO SEE IF DONE OR LOOP ON TEST, 
TSTGOO /GO CHECK FOR THE ACT LINE 



/»»#«»♦«»##*#«##«#•##»*«»##»»«»###»«*»«#•**•#»*»»#»#»#»•»#•»»•»•#•##•• 

/FIRST SECTION OF THE 12 BIT PARALLEL I/O DIAGNOSTIC TESTS 

/THE PARALLEL I/O MUST BE CONNECTED IN LOOP BACK MODE (12 SIT DATA OUT 

/TO 12 BIT DATA IN, DATA AVAILABLE TO SET DATA READY, AND DATA ACCEPTED 

/OUT TO DATA ACCEPTED INT, THE SWITCH FOR TS1 TO CLEAR DATA AVAILABLE SHOULD 

/BE LEFT OFF TO RUN THIS SECTION OF THE PROGRAM , 



/«•«••••»•»•«*•* 



0503 4104 

0504 3252 

0505 44Z3 
0536 7777 
059? 4436 
051E 4000 
0511 4437 



0512 4007 

0513 4146 

0514 3041 

0515 3042 

0516 6001 

0517 6571 
0520 7640 



/•••••••»•••*•••*•••••#•••#•*•••#••*#••••*•••*«•»•••••••••••••#•#•••«• 

/TEST 7 • CHECKS THE DATA ACCEPTED ANU THE DATA READY FLIP. FLOPS TO BE 
/ZERO FOLLOWING A OAF - , THE PROGRAM ISSUES THE IOT DBCF TO CLEAR THE DATA 
/READY FLAG AND TO SET THE DATA ACCEPTED F/F, THE IOT OBST IS THEN 
/ISSUED TO CHECK THAT IT WILL SKIP ON DATA ACCEPTED F/F AND THEN RE. 
/ISSUED TO CHECK THAT THE FIRST OBST CLEARED DATA ACCEPTED", 
/««••»•.*•**••»•»•*••#.•»•*••••«.••.»•«***••«»•*»*••••««».#••••••«••*« 



TEST7, 



JMS PATCH 
SKPCHN 
LOOPPC 
•1 

SJMCHK 

4000 

LODSIM 



CAF 

HTCENA 

TCA 

OCA 

ION 

OBSK 

SZA 



INTFLG 
CLKFLG 



CLA 



/SETUP TEST COUNT AND TEST LOOPING ADDRESS 
/SIMULATOR ITERATION COUNTER 
/CHECK TO'SEF. IF SIMULATOR IS SELECTED 
/SIMULATOR CONTROL WORD 

/LOAD SIMULATOR IF SELECTED ALSO SET SCOPE LOOP 

/E3UAL THIS AUORESS IF SELECTED OTHERWISE 

/SET IT TO THE NEXT ADDRESS 

/CLEAR ALL FLAGS 

/SET REAL TIME CLOCK INT ENA 

/CLEAR PROGRAM INTERRUPT FLAG 

/SET INTFRRUPT SERVICE TO IGNORE CLOCK FLAG 

/TURN THE INTERRUPT ON 

/SKIP ON THE DATA READY FLAG 

/CHECK THAT DBSK DIDN'T READ ANYTHING INTO AC 



/BMl.AA OPTION TttT 1 MAINDEO.i«.OJOKA.|.L 4K »AL1« Vl4tA l».JUN.»» 



a i ss 



PAOE 2.U 



0921 


4427 


ERRQR 




0922 


6970 


DB5T 






7640 


82* 


CLA 


0934 


4427 


ERROR 




3525 


3.0*3. 


TAD 


INTFLG 


0926 


7640 


SZA 


CLA 


0927 


4427 


ERRQR 




2932 


6973 


DBCF 




0531 


7640 


SZA 


CLA 


0932 


4427 


ERROR 




0933 


6571 


DBSK 




0534 


7610 


SKP 


CL.A 


0935 


4427 


ERRQR 




0536 


6970 






0937 


4427 


ERROR 




0540 


6570 


DBST 




0541 


7610 


SKR 


SLA 


0542 


4427 


ERROR 




0543 


1041 


TAD 


J NTFLC 


3544 


7640 


SZA 


CLA 


0545 


4427 


ERROR 




0546 


4424 


DQNLOP 





/INIT fAltCO T8 DATA REAOT.PISK SKIPPED OR 
/READ SOMETHING INTO THE AC 

/SKIP ON DATA ACCEPTED, I DATA ACCEPTED AND DATA AVAILABLE 

/INIT PAtLEO TO DATA ACCEPTED, OBST SKIPPED OR 
/OBST READ SOMETHING INTO THE AC 
/SET THE PROGRAM INTERRUPT FLAB 

/PROGRAM INTERRUPTED WITHOUT I NT ENA AND FLAG SET 
/CLEAR DATA REAQT SET DATA ACCEPTED 

/OBCF SKIPPED OR READ SOMETHING INTO AC 
/SKIP ON DATA READY 

/DATA READY FLAG GOT SET BY OBST OR SBOF 
/SKIP ON DATA ACCEPTED AND CLEAR IT 
/DATA ACCEPTED NOT SET OR DBST FAILED TO SKIP 
/SKIP ON DATA ACCEPTED TO CHECK THAT |T CLEARED 

/DSST AND TP4 FAILED TO CLEAR DATA ACCEPTED F/F 
/GET THE PROGHAM INTERRUPT FLAG 

/PROGRAM INTERRUPTED WITHOUT I NT ENA SET 
/REPEAT TEST IF SR EQUAL TO 1000 



/TEST S • CHECKS THAT THE D'TA ReAdY FLAG BAN _, 
/SET THE DATA READY FLAG, THE PROGRAM ISSUES THE 



SET AND CLEARED. TO 
I0T 01TB TO TRANSMIT 



/AND SET DATA AVAILABLE F/f>, THE SETTING OP DATA AVAILABLE F/F IN LOOP 
/BACK MODE SETS THE DATA READY F/F', THE IOT OBSK IS THEN ISSUED TO 
/CHECK THAT THE FLAG IS SET AND THAT THE IOT WILL SKIP". THE PROGRAM 
/THEN CLEARS THE DATA READY FLAG WITH DiCF WHICH ALSO SETS DATA ACCEPTED, 
/THE DATA READY FLAG IS CHECKED TO BE CLEARED BY ISSUING A DBSK AND 
/DATA ACCEPTED F/F IS CHECKED TO BE SET BY ISSUING A PSST', THE DATA 
/ACCEPT F/F IS CHECKED AGAIN TO 3E CLEARED BY ISSUING ANOTHER DBST', 
/.••••••••••••••..>.»......».••».. i». •••••••••<>•. .......<..•>•.. ,»,,.» 



8547 4423 

0550 7777 

0551 4436 
0952 4000 
0553 4437 



0554 6007 

0555 4146 

0556 3041 

0557 6001 
0563 6571 

0561 7610 

0562 4427 

0563 6570 

0564 7410 

0565 4427 

0566 6574 



TESTS, 



LOOPPC 
•1 

SIHCHK 

4000 

LODSIM 



CAP 

RTCENA 

DCA 

I ON 

OBSK 

SKP 

ERROR 

OBST 

SKP 

ERROR 

DBTO 



SNTFLG 



/SETUP TEST COUNT AND TEST LOOPING ADDRESS 
/SIMULATOR ITERATION COUNTER 
/CHECK TO SEE IF THE SIMULATOR IS SELECTED 
/SIMULATOR CONTROL WORD 

/LOAD SIMULATOR IF SELECTED, ALSO SET SCOPE 

/LOOP ■ THIS AOORESS IF SELECTED OTHERWISE 

/SCOPE LOOP WILL BE NEXT ADDRESS', 

/CLEAR ALL FLAOS 

/SET REAL TIM? CLOCK INT ENA 

/CLEAR PROGRAM INTERRUPT FLAG 

/TURN THE INTERRUPT ON 

/SKIP ON DATA READY FLAG 

/DATA READY FLAG SET OR DBSK SKIPPED 

/SKIP ON DATA ACCEPTED, DATA ACCEPTED AND DATA AVAILABLE 

/DATA ACCEPTES SET OR OBST SKIPPED 

/TRANSMIT ANO SET DATA AVAILABLE AND DATA READY 
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0567 7640 

0570 4427 

0571 6571 

0572 4427 

0573 6570 

0574 7610 

0575 44S7 

0576 6571 

0577 4427 

0600 1041 

0601 7640 

0602 4427 

0603 6573 

0604 6571 

0605 7410 

0606 4427 

0607 6570 

0610 4427 

0611 6570 

0612 7410 

0613 4427 

0614 1041 

0615 7640 

0616 4427 

0617 4424 



SZA 

ERROR 

DBSK 

ERROR 

OBST 

SKP 

ERROR 

OBIK 

ERROR 

TAD 

SZA 

ERROR 

DBCF 

DBSK 

SKP 

ERROR 

DBST 

ERROR 

OBST 

SKP 

ERROR 

TAD 

SZA 

ERROR 

DONL°P 



CLA 



INTFLG 
CLA 



INTFLG 
CLA 



/CHECK THAT DBTO BIDNIT READ ANYTHING INTO AC 

/OBTO SKIPPED 

/SKIP ON DATA READY FLAG 

/DBTO FAILED TO SET DATA READY FLAG 

/SKIP ON DATA ACCEPTED, DATA AVAILABLE ANO DATA ACCEPTED 

/DATA ACCEPTED SET BEFORE OBCF WAS ISSUED 

/SKIP ON DATA READY 

/DATA READY FLAG CLEARED 

/GET THE PROGRAM INTERRUPT FLAG 

/PROGRAM INTERRUPTED WITHOUT SETTING INT ENA 
/CLEAR DATA READY SET DATA ACCEPTED 
/SKIP ON DATA READY 

/DBCF FAILED TO CLEAR DATA READY 

/SKIP ON DATA ACCEPTED AND CLEAR [T AND DATA AVAIL, 
/DBCF FAILED TO SET DATA ACCEPTES OR DBST FAILED TO SKIP 
/SKIP ON DATA ACCEPTED 

/THE FIRST DBST 'AILED TO CLEAR DATA ACCEPTED 
/GET THE PROGHAM INTERRUPT FLAG 

/PROGRAM INTERRUPTED WITHOUT INT ENA SET 
/REPEAT TEST IF SR ■ 1003 



/TEST 9 • CHECKS THAT cAF WILL CLEAR THE DATA READY FLAG AND THE 
/DATA ACCEPTED FLAG , 

/*»••»•»••«#••••••••»••••»*•••»••«•«•.•««»»•••«•••»•»•»»»»•••••••«»••• 



0620 4423 

0621 7777 

0622 4436 

0623 4000 

0624 4437 



0625 6007 

0626 4146 

0627 3041 

0630 6001 

0631 6574 

0632 6571 

0633 4427 
0434 6570 

0635 7410 

0636 4427 

0637 1041 
0642 7640 

0641 4427 

0642 6007 

0643 4146 

0644 6571 

0645 '610 



TESTS, LOOPPC 
•1 

SJMCHK 

4000 

LODSIM 



CAF 

RTCENA 

OCA 

ION 

OBTD 

DBSK 

ERROR 

OBST 

SKP 

ERROR 

TAD 

SiA 

ERROR 

CAP 

RTCENA 

DBSK 

SKP 



INTFLG 



INTFLG 
CLA 



/setup test count and test looping address 

/simulator iteration counter 

/check to see if simulator is selected 

/simulator control word 

/load simulator if selected, also set scope 

/loop equal this address if simulator selected 

/otherwise scope loop will be next adores 

/clear all flags 

/set real time clock int ena 

/clear program interrupt flag 

/turn the Interrupt on 

/transmit and set data ready 'flag 

/skip on data ready flag 

/dbtd failed to set data ready 

/skip on data accepted and clear it 

/data accepted got set before a dbcf was issued 
/get the progham interrupt flag 

/program interrupted without i nt ena set 
/clear data ready flag 
/set real time clock int ena 
/skip on data rcaqt flag 



/DKCe-U OPTION TEST 1 H4!NDEO.B8.0JBW»s»L 4K Hilt V142A i6.jyv.7J 



2646 4427 

>!6«' 6001 

0650 6573 

0651 6087 

3652 «i«6 

0653 6SI01 

0634 6570 

0655 7640 

0656 4487 

0657 1041 

0660 7640 

0661 4427 

0662 4424 



0663 4423 

0664 7777 

0665 4436 

0666 4000 

0667 4437 



0670 
0671 
0672 
0673 
0674 
0675 
0676 
0677 
0700 
0701 
0702 
0703 
0704 
0705 
0706 
0707 
0715 
0711 
0712 
0713 
0714 
0715 
0716 
0717 
0720 
0721 
0722 
0723 



6007 
4146 
3041 
6001 
6571 
7610 
4427 
6570 
7610 
4427 
1041 
7640 
4427 
6575 
7640 
4427 
1041 
7640 
4427 
6574 
6571 
4427 
2041 
4427 
6576 
7640 
4427 
6001 



ERROR 




I QN 




DSSF 




OAF 




RTCENA 




I ON 




DBST 




Sit 


CU 


ERROR 




TAD 


INTrtQ 


Sii 


eu 


ERROR 




DONLOP 





II 9S PAGE 2.11 

/INIT FAILEO TO CLEAR DATA READY rtAS 

/TURN THE INTERRUPT BACK ON 

/CLEAR DAT* READY SET DATA ACCEPTED 

/THE PROSRAM ASSUMES THAT D6CF SET DATA ACCEPTED 

/CLEAR DATA ACCEPTED 

/SET REAL TIME CLOCK INT EVA 

/TURN THE INTERRUPT ON 

/SKIP ON OAT* ACCEPTED 

/INIT FAILED TO CLEAR DATA ACCEPTED 
/GET THE PROGRAM INTERRUPT FLAG 

/PROGRAM INTERRUPTED WITHOUT INT ENA SET 

/REPEAT TEST IF SR • 1003 



/••••««•»«»»»»»• 



/TEST 10 . CHECKS THAT I NT ENA CAN BE SET AND CLE A RED USING ~TWp" 
/D4T4 READV FLAG TO SKIP AND INTERRUPT O'J, 



TESTIS, LOOPPC 
•1 

SIMCHK 
1000 

LOOSIH 



CAF 




RTCENA 




OCA 


INTFLO 


ION 




DSSK 




SKP 


CLA 


ERROR 


DBST 




SKP 


CLA 


ERROR 


TAD 


INTFLO 


SiA 


OL* 


ERROR 




03SE 




SZA 


CIA 






TAD 


INTFLG 


Sit 


CLA 


ERROR 




DBTO 




OBSK 




ERROR 




ISZ 


INTFLG 


ERRO™ 




DBCE 




SiA 


CLA 


ERROR 




ION 





/SETUP TEST COUNT AND TEST LOOPING ADDRESS 
/SIMULATOR ITERATION COUNTER 
/CHECK TO SEE IF SIMULATOR SELECTED 
/SIMULATOR CONTROL WORD 

/LOAD SIMULATOR IF SELECTED ALSO SET SCOPE 

/LOOP . THIS ADDRESS IF SIMULATOR SELECTED 

/OTHERWISE SCOPE LOOP IS NEXT ADDRESS 

/CLEAR ALL FLASS 

/SET REAL TIME CLOCK INT ENA 

/CLEAR PROGRAM JNT6RUPT FLAG 

/TURN THE INTERRUPT ON 

/SKIP ON BAT* READY FLAG 

/DATA READY FLAGS SET FOLLOWING (NIT 
/SKIP ON DATA ACCEPTED 

/DATA ACCEPTED SET FOLLOWING INIT 

/CHECK THAT THE PROGRAM DID NOT INTERRUPT 

/PROGRAM INTERRUPTED WITHOUT FLAGS AND INT ENA SET 

/SET INTERRUPT ENABLE TO A 1 

/CHECK THAT DBSE 0IDN1T CHANGE THE AC 

/DBSE SKIPPED OR READ SOMETHING INTO AC 

/GET THE PROGRAM INTERRUPT FLAG 

/PROGRAM INTERRUPTED WITHOUT FLAG SET 
/TRANSMIT AND SET DATA READY 
/SKIP ON DATA READY FLAG 
/D8TD FAILED TO SET DATA READY 
/DID THE PROGRAM INTERRUPT? 

/PROGRAM FAILED TQ INTERRUPT OR I NT ENA NOT SET 

/CLEAR INTERRUPT ENABLE 

/CHECK TW»? DBCE DIDN'T CHANGE THE AC 

/08SE SKIPPED OR CHANGED THE AC 

/TURN THE INTERRUPT ON 



OPTION 


TEST j, 


MAiN0EC«eS.0J0KA.8iL 4K 


0724 


6571 


DSSK 


0725 


4427 


ERROR 


0726 


1041 


YAO INTFLG 


0727 


7640 


S2A CLA 


0730 


4427 


ERROR 


0731 


6007 


CAF 


0732 


4424 


OONLOP 



0733 4423 

0734 7777 

0735 4456 

0736 4000 

0737 4437 
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/SKIP ON OA 7 A READY 
/DATA READY FLAG GOT CLEAREQ 
/GET THE PROGRAM INTERRUPT FLAG 

/PROGRAM INTERRUPTED, D3CE FAILED TO INT ENA 
/CLEAR ALL FLAGS 

/REPEAT TEST IF SR • 1003 

/TEST 11 . CHECKS THAT INITIALISE WILL CLEAR*I*T*r*A # F/F*uS^Nr*Tur**** 

'0ATAJE4CT F L AO TO SKIP AND INTERRUPT ON, J !NG ™ C 

TESTll, LOOPPC 
-1 

SIMCHK 



0740 
0741 
0742 
0743 
0744 
0745 
0746 
0747 
0750 
0751 
0752 
0753 
0754 
0755 
0756 
0757 
0760 
0761 
0762 
0763 
0764 
0765 
0766 

0767 
0770 
0771 
0772 
0773 



6007 
4146 
3041 
6001 
6574 
6571 
<(427 
6575 
7000 
2041 
4427 
6037 
4146 
6001 
6571 
7410 
4427 
6574 
6571 
4427 
1041 
7640 
4427 

6007 
6571 
7410 
4427 
4424 



LOOSIH 



CAF 

RTCENA 

OCA 

ION 

DBTD 

BBSK 

ERROR 

DSSE 

NOP 

IS2 

ERROR 

CAF 

RTCENA 

ION 

DSSK 

SKP 

ERROR 

OB TO 

DSSK 

ERROR 

TAD 

SHA 

ERROR 

CAF 

DSSK 

SKP 

ERROR 

DCNLOP 



/SETUP TEST COUNT AND TEST LOO'INO ADDRESS 
/SIMULATOR ITERATION COUNTER 
/CHECK TO SEE IF SIMULATOR SELECTED 
/SIMULATOR CONTROL WORD 

/LOAD SIMULATOR IF SELECTED ALSO SET SCOPE 

/LOOP > THIS ADDRESS IF SIMULATOR SELECTED 

/OTHERWISE SCOPE LOOP IS NEXT ADDRESS 

/CLEAR ALL FLAGS 

/SET REAL TIME CLOCK INT ENA 
INTFLG /CLEAR PROGRAM INTERRUPT FLAG 

/TURN THE INTERRUPT ON 

/TRANSMIT AND SET DATA READY 

/SKIP ON DATA READY FLAG 

/DBTO FAILED TO SET DATA READY 

/SET INTERRUPT ENABLE 

/PROGRAM SHOULD INTERRUPT WERE 
INTFLG /DID THE PROGRAM INTERRUPT 

/NO, PROGRAM FAILED TO INTERRUPT 

■'CLEAR ALL FLAGS 

/SET REAL TIME CLOCK INT ENA 

/TURN THE INTERRUPT BACK ON 

/SKIP ON DATA READY FLAG 

/INIT FAILED TO CLEAR DATA READY 
/TRANSMIT AND SET DATA READY 
/SKIP ON DATA READY ELAG 
/DBTD FAILED TO SET DATA READY FLAG 
/GET THE PROGRAM INTERRUPT FLAG 



INTFLG 
CL* 



/PROGRAM INTERRUPTED. INIT FAILED TO 
/CLEAR INTERRUPT ENABLE r /F 
/CLEAR DATA READY FLAG 
/SKIP ON DATA READY FLAG 

/INIT FAILED TO CLEAR DATA READY 
/REPEAT TEST I F SR > 1U0J 



/♦• •••••»•••••••••§••.».••....»«.«,«.•...«....,..,.,,.,,,,,.,.., ...... 

/I«L«."#S!!#». S TH ' T D * T * *OCEPTED CAN CAUSE A INTERRUPT', 



/SKCI.AA OPTION TMT 1 MAINDCG.(8»0JDK*.t.L 4K Mill vi«* U.JuK.M DM »»« 

0774 4423 TESTUi LOOPPC /SETUP TEST COUNT AND TEST LOOPJNS ADDRESS 

0775 7777 -t /SIMULATOR ITERATION COUNTER 

0774 443* S1«CHK /CHECK TO SEE IP SIMULATOR IS SELECTED 

8777 4(00 4888 /SIMULATOR CONTROL WORD 

1000 4437 LODSIM /LOAD SIMULATOR IP SELECTED ALSO SET SCORE 

/LOOP n THIS ADDRESS If SIMULATOR SELECTED 
/OTHERWISE SCOPE LOOP IS NEXT ADDRESS 

1801 61(7 CAP /CLEAR ALL 'LASS 

1012 414* RTGENA /SET REAL TIME CLOCK INT ENA 

1003 3141 OCA INTFLG /CLEAR PROGRAM INTERRUPT FLAG 

1004 6(01 ION /TURN THE INTERRUPT ON 

1005 SS73 OBCF /CLEAR DATA REACT SET DATA ACCEPTED 
10(6 7(00 NQP /SHOULDN'T INTERRUPT HERE 

4007 1(41 TAD INTFLG /GET THE PROGRAM INTERRUPT FLAG 

1010 7*48 SZA CLA 

1(11 4427 ERROR /PROGRAM INTERRUPTED WITHOUT INT ENA SET 

1812 6S73 DBSE /SET INTERRUPT ENABLE 

1013 7000 NOP /SHOULD INTERRUPT HERE WITH I NT ENA AND FLAG SET 

1014 2841 ISt I NTFLG /DID THE PROGHAM INTERRUPT 

1015 4427 ERROR /NO.FAILEO TO INTERRUPT WITH I NT ENA AND DATA ACCEPTED SET 
1814 4(01 ION /TURN THE INTERRUPT SACK ON 

1817 6570 OBST /CHECK THAT DATA ACCEPTED SOT CLEARED BT 1ST DSST IN SKIP CHAIN 

1020 74» SKP CLA 

1821 4427 ERROR /DATA ACCEPTED DIDN'T CLEAR IN INTERRUPT SKIP CHAIN 

1822 1(41 TAD I NTFLG /GET THE PROGRAM INTER»U°T FLAG 

1823 7»4( SZA CLA 

1824 4427 ERROR /PROGRAM INTERRUPTED WITH DATA ACCEPTED CLEARED 

1825 6574 OBCE /CLEAR INTERRUPT ENABLE 

1826 4424 DONLOP /REPEAT TEST IF SR i 1(0!! 

/ ••«••••••••••..•••..» 

/TEST 13 . CHECKS THE EFFECT OF THE I0T ON THE Ac, DS»5 SHOULD BE THE SNLT 
/IOT TO CHANGE THE AC 

/ *••• • •• 

1827 4423 TESTIS, LOOPPC /STORE THE TEST LOOPING ADDRESS AND SETUP TEST COUNT 

1830 7777 •! /SIMULATOR ITERATION COUNTER 

1831 4434 SIMCHK /CHECK TO SEE IF SIMULATOR IS SELECTED 

1832 4(80 4fee /CONTROL WORD FOR THE SIMULATOR 

1833 4437 LOOSIM /LOAD SIMULATOR IF SELECTED ALSO SET SCOPE 

/LOOP » THIS ADDRESS IF SIMULATOR SELECTED 
/OTHERWISE SCOPE LOOP IS THIS ADDRESS »1 

1034 3041 OCA INTFLG /CLEAR PROGRAM INTERRUPT FLAG 

1835 6(07 CAP /CLEAR ALL FLAGS 

1836 414* RTCEN* /SET REAL TJM£ CLOCK INT ENA 

1837 6(01 ION /TURN INTERRUPT ON 
1048 7J40 CLA CMA /SET THE AC TO ALL ONES 

1041 6J74 DBTD /TRANSMIT DATA 

1042 7(81 IAC 
1843 7*48 SZA CLA 

1044 4427 ERROR /DBTD CHANGED THE AC 

1045 6(07 CAP /CLEAR ALL 

1846 414* RTCEN* /SET REAL TIME CLOCK INT ENA 

1847 6881 ION /TURN INTERRUPT BACK OR 
1850 7248 CLA CMA /SET THE AC TO ALL ONES 



/DKCi.AA OPTION TEST t MAINDEC»0H»DJDKA»B»L 4K PAL10 VJ42A 16-JUN.7S SI5S PAGE 2n5 

1051 6572 DBRD /READ THE 12 BIT PARALLEL I/O 

1852 7*40 SZA CLA 

1853 4427 ERROR /DBRD FAILED TO READ OR CAF FAILED TO CLEAR XMIT BUFFERS 

1854 7248 CLA CMA " /SET AC TO ALL ONES 

1055 6571 DBSK /SKIP ON DATA READT 

1056 7881 IAC 
1857 7*48 SZA CLA 

I860 4427 ERROR /DBSK CHANGED THE AC 

1061 6002 I0F 

1862 7248 CLA CMA /SET THE AC TO ALL ONES 

1863 6373 OBCF /CLEAR DATA READY FLAG SET DATA ACCEPT FLAG 
1064 7801 IAC 

1063 7*48 SZA CLA 

1846 4427 ERROR /OBCF CHANGED THE AC 

1067 6007 CAF /CLEAR ALL FLAGS 

1078 4146 RTCENA /SET REAL TIME CLOCK I NT ENA 

1071 6001 I ON /SET INTERRUPT ENABLE 

1072 7240 CLA CMA 

1073 6578 OBST /SKIP AND CLEAR DATA ACCEPTED AND DATA AVAILABLE 

1874 7881 I AC 

1875 7640 SZA CL* 

1876 4427 ERROR /OBST SKIPPED OH CHANGED THE AC 

1877 7240 CLA CMA 

1188 6575 DBSE /SET PARALLEL INTERRUPT ENABLE 

1101 7801 I AC 

1182 7*40 SZA CLA 

1183 4427 ERROR /DBSE CHANGED THE AC 
1104 7240 CLA CMA 

1185 6374 OBCE /CLEAR INTERRUPT ENABLE 

1106 7881 I AC 

1107 7*48 SZA CLA 

1110 44J7 ERROR /OBCE CHANGED THE AC 

1111 7248 CLA CMA /SET THE AC TO ALL ONES 

1112 6577 DBSS /ISSUE A STROBE PULSE 

1113 7410 SKP 

1114 4427 ERROR /D8SS SKIPPED 

1115 7801 IAC 

1116 7648 SZA CLA 

1117 4427 ERROR /DBSS CHANGED THE AC 

1128 1841 TAD INTFLG /DID THE PROGHAM INTERRUPT 

1121 7*48 SZA CLA 

1122 4427 ER"0» /PROGRAM INTERRUPTED 

1123 4424 DONLOP /CHECK TO SEE IF DONE OR LOOP ON TEST 

/ •» ••«•».»••••••••• ••» tn ••• 

/TEST 14 » CHECKS THAT ALL ONES CAN SE TRANSMITTED AND READ SACK. IT ALSO CHECKS THAT 
/CAF CAN CLEAR THE X»I7 SUFFERS, INTERRUPTS ARE ALSO CHECKED 
/•••••• • • 

1124 4423 TEST14, LOOPPC /SETUP SCOPE LOOP ADDRESS ANO'sETUP TEST COUNT', 
1123 7777 •! /SIMULATOR ITERATION COUNTER 

1126 4436 SIMCHK /CHECK TO SEE IF SIMULATOR IS SELECTED 

1127 4888 4808 /CONTROL WORD FOR THE SIMULATOR 

1138 4437 LOOSIH /LOAD SIMULATOR IF SELFCTED ALSO SET SCOPE 

/LOOP I THIS ADDRESS IF SIMULATOR SELECTED 



/0KC8-AA OPTION TEST 1 MAINOEC-0«-OJOKA-b.l « PAL10 vt«jA l6«JUN.7S 



5 ! SB PASE 2»l6 



1131 
1132 
1133 
1134 
1135 
11M 



3041 
7240 
3051 
4426 
4430 
4454 



DC* INTFLG 
CLA CMA 
OCA PIOXMT 
'JOOAT 
P I ODER 
OQNLOP 



/OTHERWISE SCUPE LOOP IS THIS ADORESJ «1 
/CLEAR PROGRAM INTERRUPT FLAG 

/SET THE WORD To BE TRANSMITTED TO ALL OWES 
/GO TRANSMIT AND COMPARE THE H0R8 

/DATA ERROR - WORD DIDN'T COMPARE IN ROUTINE PIOOAT 
/REPEAT TEST JP NOT DONE OR LOOP ON TEST If SR2H 



1137 
1143 
1141 
1142 
114! 



1144 
1145 
1144 
1147 
1150 
1151 
115! 
1153 
1154 



1155 
1156 
1157 
1162 
1161 



4423 
7777 
4436 



3041 
7240 
3051 
4426 
4430 
3051 
4426 
4430 
4484 



4423 
7777 
4436 



/TEST IS . CHECKS POP A COMPLEMENTING Data PATTERN OF 7777 THEN 0000 AND CHECKS THAT CAF 
/WILL CLEAR THE DATA BUFFER, THE PROGRAM IS CHECKED TO INTERRUPT 
/*«ft«e#«ee*«»»*t«#t*#»ft»«# 4# »» 4 ««e # » t »«»« # »» t « tt »» # t #####4tt#t##### g v# , 

TESTIS, LOOPPC /SETUP TEST SCOPE LOOP AND TEST COUNT 

-1 /SIMULATOR ITERATION COUNTER 

SI M CHK /CHECK TO SEE IF SIMULATOR IS SELECTED 

4000 /CONTROL WORD FOR THE SIMULATOR 

LOOSIM /LOAD SIMULATOR IF SELECTED ALSO SET SCOPE 

/LOOP ■ THIS ADDRESS IP SIMULATOR SELECTED 

/OTHERWISE SCOPE LOOP IS THIS ADDRESS *1 

OCA INTFLG /CLEAR PROGRAM INTERRUPT FLAG 

CLA CMA /SET THE FIRST WORD TO ALL ONES 

OCA PJOXMT /SAVE IT 

PIOOAT /GO TRANSMIT AND COMPARE THE WORD 

PIODER /DATA ERROR . WORD DIDN'T COMPARE IN ROUTINE PIOOAT 

OCA PIOXMT /SET THE WORD To 

PJODAT /GO TRANSMIT AND COMPARE THE WORD 

PJOOER /DATA ERROR- FAILED TO READ ZEROES BACK 

DONLDP /REPEAT TEST IF NOT HONE OR LOOP ON TEST IP SR2»1 

/»#•••***•*«•*«*»*«»««*«•»#*««•««*•*«»•«»*«•• t««****«»ft«»»«««««» tt »» ##4 

/TEST 16 . CHECKS FOR A COMPLEMENTING DATA PATTERN OF 5292 . 2525 AND CHECKS 
/THAT CAF WILL CLEAR THE XMIT BUFFERS, THE PROGRAM IS CHECKED TO INTERRUPT 



TEST16, LOOPPC 
"1 



1162 
1163 
1164 
1165 
1166 
1167 
1170 
1171 
1172 
1173 

1174 
1177 



3041 
1062 
3051 
4426 
4430 
1063 
3051 
4426 
4430 
4424 

5777< 
1200 



OCA INTFLG 
TAD K5252 
OCA PJOXMT 
PIOOAT 
PIODER 
TAD KJ525 
OCA PIOXMT 
PIODAT 
PIODER 
DQNLOP 



/SETUP TEST LOOP AND TEST COUNT 

/SIMULATOR ITERATION COUNTER 

/CHECK TO SEE IF SIMULATOR IS SELECTED ' 

/CONTROL WORD FOR THE SIMULATOR 

/LOAD SIMULATOR IF SELECTED ALSO SET SCOPE 

/LOOP i THIS ADDRESS IF SIMULATOR SELECTED 

/OTHERWISE SCOPE LOOP IS THIS AOORESS il 

/CLEAR PROGRAM INTERRUPT FLAG 

/SET THE FIRST WORD TO TRANSM[TiJ252 
/GO TRANSMIT AND COMPARE THE DATA WORD 
/DATA ERROR « WORD DIDN'T COMPARE 

/SET THE SECOND WORD TO TRANSMIT • 2525 
/GO TRANSMIT AND COMPARE THE WORD 
/DATA ERROR. THE word DIOniT COMPARE 

/REPEAT THE TEST IP NOT DONE 0' LOOP ON TEST IF SR2«1 



JMP 



TEST17 /DO NEXT TEST 



/DKCS.AA OPTION TEST 1 MAINDEC-0«-I>JDKA.B»L 4K PAL10 
1200 IFDEF 0P13K <PACE> 



V1«ZA 16.JUN.75 



S 1 53 



PAGE 2.17 



/»«««#»*«*««««»*««#»ft»ft»**»»«*«»«ft*»*«*«*4> »*»**#»* »»»»»»»«»«»»*»•««••« 

/TEST 17 . CHECKS FOR AN INCREMENTING DATA PATTERN', 



1200 4423 

1201 7777 

1202 4104 

1203 3252 

1204 3042 

1205 7300 

1206 3050 

1207 3047 

1210 4436 

1211 4000 

1212 4437 

1213 3041 
121« 1047 

1215 3051 

1216 4426 

1217 4430 
1220 4424 



TEST17, 



LOOPPC 
"1 

JMS PATCH 
SKPCHN 
DCA CLKFLG 
OLA CLL 
OCA SAVCNT 
DCA TSTCNT 
SIMCHK 
4000 
LOOSIM 
DCA INTFLG 
TAD TSTCNT 
OCA PIOXMT 
PIOOAT 
P I ODER 
OONLOP 



/SET UP TEST LOOPING ADDRESS 
/SIMULATOR ITERATION COUNTER 
/GO SET UP FOR INTERRUPT RETURN 

/SET INTERRUPT TO IGNORE RTC FLAGS 



/CLEAR PROGRAM TEST COUNTER 
/CHECK FOR SIMULATOR 
/SIMULATOR CONTROL WORD 
/LOAD THE SIMULATOR IF SELECTED 
/CLEAR PROGRAM INTERRUPT FLAG 
/GET TEST COUNTER 

/SET THE WORD TO BE TRANSMITTED « TO IT 
/GO TRANSMIT AND COMPARE THE WORD 
/DATA ERROR 

/DONE OR L00 D ON TEST IF SR2«1 



»«««••«•«»««»•«««•» 

/TEST IB - CHECKS FOR AN INCREMENTING DATA PATTERN WITH THE INTERRUPT 
/ENABLE DISABLED WHICH ALLOWS FOR PASTER READING BECAUSE OF NO SKIP CHAIN 



1221 


4423 


TESTIS, LOOPPC 


/SETUP TEST COUNT AND TEST LOOP ADDRESS 


1222 


7777 


-1 


/SIMULATOR ITERATION COUNTER 


1223 


7300 


CLA CLL 




1224 


3050 


DCA SAVCNT 




1225 


3047 


OCA TSTCNT 




1226 


4436 


SIMCHK 


/CHECK FOR THE SIMULATOR 


1227 


4000 


4000 


/SIMULATOR CONTROL WORD 


1233 


4437 


LODSIM 


/LOAD SIMULATOR IF SELECTED 


1231 


6007 


CAF 


/CLEAR ALL FLAGS 


1232 


4146 


RTCENA 


/SET REAL TIME CLOCK INT ENA 


1233 


6001 


ION 


/TURN THE INTERRUPT ON 


1234 


3041 


DCA INTFLG 


/CLEAR PROGRAM INTERRUPT FLAG 


1235 


1047 


TAD TSTCNT 


/GET THE TEST COUNTER 


1236 


3051 


OCA PIOXMT 


/PUT IT IN THE WORD TO TRANSMIT 


1237 


1051 


T AO PIOXMT 


/GET THE WORD 


1243 


6574 


DBTO 


/TRANSMIT IT 


1241 


6571 


OBSK 


/SKIP ON DATA READY 


1242 


4427 


ERROR 


/DATA REAOV FLAG FAILED to SET 


1243 


7240 


CLA CMA 


/SET THE AC TO ALL ONE'S 


1244 


6572 


DBRD 


/READ THE DATA BUFFER 


1245 


3052 


OCA PIOREC 


/SAVE THE WORU READ 


1246 


6573 


DBCF 


/CLEAR THE DATA REACT , FL AG 


1247 


6570 


DBST 


/SKIP AND CLEAR DATA ACCEPTED AND DATA AVAIL 


1250 


4427 


ERROR 


/DBSF PAILAED TO SET DATA ACCEPTED 


1251 


6570 


DBST 


/CHECK THAT DATA ACCEPTED CLEARED 



/OKS».AA OPTION TCST i ><A I NDt C-»B -0 J3K* -B -L i* PAL10 VWjA i«.JUN.75 l|56 PASS 2.18 



125! 7410 

1853 4427 

1854 1(31 
1255 7041 

1856 1058 

1857 7640 
1860 4430 

1261 6007 

1262 4146 

1263 6001 

1264 6572 

1265 7640 

1266 4427 

1267 1041 

1270 7640 

1271 4427 

1272 4424 



SKP 
ERROR 

TAD PJOXMT 
CJA 

TA5 PIOREC 
51A CL» 
PIODER 

caf 

RTCENA 
JON 
OBRD 
SJA CLA 
ERROR 

TAD INTFLG 
524 CLA 
ERROR 

OONLOP 



/DATA ACCEPTED STILL SET 

/COMPARE THE WORD TRANSMITTED WITH THE WORD READ 



/PARALLEL I/O DATA ERROR 

/CLEAR ALL INCLUDING THE TRANSMIT BUFFER 

/SCT REAL TIME CLOCK INT ENA 

/TURN THE INTERRUPT BACK ON 

/READ THE RjrrtR 

/DIO INJT CLEAR THE BUFFER? 

/NO, INIT FAILED TO CLEAR BUFFER 

/SET THE PROGRAM INTERRUPT FLAB 

/PROGRAM INTERRUPTED WITHOUT INT ENA SET 
/DONE OR REPEAT TEST IP SR.S»1 



/......... ......... .... 

/TEST 19 . IS ONLY TESTED WHEN THE SIMULATOR IS SELECTED, THE TEST 
/CHECKS THAT STROBE CAN BE SET B» D8SS AND TPS AND THAT TIME STATE 1 
/CAN CLEAR IT, 



/« 



1273 4423 TESTIS, LOOPPC /SETUP TEST COUNT AND TEST LOO' ADDRESS 

1274 7777 -1 /SIMULATOR ITERATION COUNTER 

1275 4436 SIMCHK /CHECK TO SEE IF SIMULATOR IS SELECTED 

1276 4030 '000 /SIMULATOR CONTROL WORD 

1277 4437 LQOSIM /LOAD THE CONTROL WORD 

1300 1021 TAO 0P1SEL /RECHECK THE SIMULATOR BIT 

1301 .1057 AND K200 /MASK OUT FOR SIMULATOR BIT 

1302 7640 SZA CLA /IS IT SFT 

1303 5306 JMP ,*3 /YES 00 CHECK THAT STROBE SETS AND CLEARS 

1304 5705 JMP I ,*! /GO TO NEXT TEST 

1305 1527 TEST23 /ADDRESS OF THE NEXT TEST 
1336 6007 CAP /CLEAR ALL FLAGS 

1307 4146 RTCENA /SET REAL TIME CLOCK INT ENA 

1310 3041 OCA I NTFLG /CLEAR THE PROGRAM INTERRUPT FLAB 

1311 6001 ION /TURN THE INTERRUPT ON 

1312 6156 CLRDET /CLEAR SIMULATOR DETECTOR F/P'S 

1313 6167 SKPSTR /SKIP ON STROBE DETECTOR F/F SET 

1314 7610 SKP CLA 

1315 4427 ERROR /STROBE IS SET TO A ONE 

1316 6577 OBSS /ISSUE A STROBE PULSE 

1317 7440 SiA 

1320 4427 ERROR /DSSS SKIPPED OR READ SOMETHING INTO THE AC 

1321 6167 SKPSTR /SKIP ON STROBE DETECTOR F/F SET 

1322 4427 F-RRQR /DSSS FAILED TO SET STR03E OR SIMULATOR DETECTOR F/F 

1323 6156 CLRDET /CLEAR READER RUN AND STROBE DETECTOR F/F 

1324 6167 SKPSTR /SKIP ON STROBE DETECTOR F/F SET 

1325 7410 SKP 

1326 4427 ERROR /STROBE STILL SET OR DETECTOR F/P DIDN'T CLEAR 

1327 6577 OBSS /ISSUE ANOTHER STROBE PULSE 
1330 6167 SKPSTR /SKIP ON STROBE DETECTOR F/F SET 



OPTION 


TEST 1 


MAINDEC-0B.DJOKA 


-B-L 4K 


PAL10 VJ4Z* 16.JUN.75 B |5S PAGE 


1331 


4427 


ERROR 




/DSSS FAILED TO SET STROBE OR DETECTOR F/F 


1332 


6156 


CLRDET 




/CLEAR READER RUN AND STROBE DETECTOR F/F 


1333 


6167 


SKPSTR 




/SKIP ON STROBE DETECTOR F/F SET 


1334 


7410 


SKP 




/STROBE STILL SET OR DETECTOR F/P DION'T 


1335 


4427 


ERROR 




1336 


1041 


TAD 


I NTFLG 


/CHECK THAT THE PROGRAM DIDN'T INTERRUPT 


1337 


7640 


S!A 


CLA 




1340 


4427 


ERROR 




/PROGRAM INTERRUPTED 


1341 


6002 


IOF 




/TURN THE INTERRUPT OF 


1342 


4424 


noNLop 




/REPEAT TEST IP SR « 1000 



2-19 



/TEST 20 • IS ONLY TESTED WHEN SIMULATOR IS SELECTED , THE TESTS CHECKS 
/THAT DATA AVAILABLE CAN BE SET BY DBTD AND CLEARED BY CAF, 
/«..«..*»»*«»».*««.»..««*»«•«•«».«••.«..*.««*.««»*««..»•••*«•«•»..»«.« 



1343 4423 

1344 7777 

1345 4436 
13A6 4000 
1347 4437 

1350 6007 

1351 4146 

1352 3041 

1353 6001 

1354 4156 

1355 6165 

1356 7610 



1357 
1360 



4427 
6574 



1361 6571 

1362 4427 

1363 6165 

1364 4427 
1345 6156 
1366 4165 
1347 4427 

1370 6007 

1371 4146 

1372 6031 

1373 4156 

1374 6165 

1375 7610 

1376 4427 

1377 6571 
1403 7610 

1401 4427 

1402 1041 

1403 7640 

1404 4427 

1405 4424 



TEST20, LOOPPC 
•I 

SIMCHK 
4000 
LOOSIM 
CAF 

RTCENA 
OCA 
I ON 

CLRDET 

SKPDAV 

SKP 

ERROR 

DBTQ 

DBSK 

ERROR 

SKPDAV 

ERROR 

CLRDET 

SKPDAV 

ERROR 

CAF 

RTCENA 
ION 

CLRDET 

SKP0AV 

SKP 

ERROR 

DBSK 

SKP 

ERROR 

TAD 

SZA 

ERRQP 

DONLOP 



I NTFLG 



CLA 



CLA 



CLA 



I NTFLG 
CLA 



/SETUP TEST COUNT AND TEST LOOP ADDRESS 

/SIMULATOR ITERATION COUNTER 

/CHECK TO SEE IF SIMULATOR IS SELECTED 

/SIMULATOR CONTROL WORD 

/LOAD THE CONTROL WORD 

/CLEAR ALL FLAGS 

/SET REAL TIME CLOCK INT ENA 

/CLEAR THE PROGRAM INTERRUPT FLAG 

/TURN THE INTERRUPT ON 

/CLEAR SIMULATOR DETECTOR F/FIS 

/SKIP ON DATA AVAILABLE DETECTOR F/F 

/CAF FAILED TO CLEAR DATA AVAIL, OR IT IS STUCK ON 

/TRANSMIT AND SET DATA READY AND DAT* AVAILABLE 

/SKIP ON DATA READY 

/DBTD FAILED TO SET DATA READY 

/SKIP DN DATA AVAILABLE DETECTOR F/F 

/DATA AVAILABLE FAILED TO SET 

/CLEAR DETECTOR F/P'S 

/SKIP ON DATA AVAILABLE DETECTOR F/F 

/DATA AVAILABLE GOT CLEARED 

/CLEAR ALL FLAGS 

/SET REAL TIME CLOCK INT ENA 

/TURN THE INTERRUPT ON 

/CLEAR THE SIMULATOR DETECTOR F/PiS 

/SKIP ON DATA AVAILABLE DETECTOR F/F 

/INIT FAILED TO CLEAR DATA AVAILABLE 
/SKIP ON DATA READY 

/INIT FAILED TO CLEAR DATA READY 
/GET THE PROGRAM INTERRUPT FLAG 

/ERROR 1 PROGRAM INTERRUPTED 
/DONE, OR REPEAT TEST IF SR«1000 



/»»..•••»•»».•.»»•.•..»•»••»••*••»•»..•»•»»*»»•.••».»•»..•«...».•»»•«• 

/TEST 21 - [S ONLY TESTED WHEN THE SIMULATOR IS SELECTED, THE TEST CHECKS 



/DKCS.AA OPTION TEST 
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/THAT OITO M I Uf. SET DATA AVAILABLE ANU THAT DBS* WILL SLEAR IT', 



1406 

1437 

1410 

1411 

1412 

1413 

1414 

1413 

1416 

1417 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1430 

1431 

1432 

1433 

1434 

1433 

1436 

1437 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1430 

1451 

1452 

1433 

1454 

1455 

1496 



4423 

7777 

4436 

4000 

4437 

6037 

4146 

3041 

6001 

6156 

6165 

7610 

4427 

6574 

6571 

4427 

6165 

4427 

6136 

6165 

4427 

6573 

6571 

7610 

4427 

6156 

6165 

4427 

6570 

4427 

6156 

6165 

7610 

4427 

6570 

7610 

<427 

1041 

7640 

4437 

4424 



TEST21 i LOOPPC 
-1 

SJMCHK 
4080 
LODSIM 
CAE 

RTCENA 

0C» 

IQN 

CLRDET 

SKPDAV 

SKP 

ERROR 

DBTQ 

DBSK 

ERROR 

SKPDAV 

ERROR 

CLRDET 

SKPOAV 

ERROR 

DBCF 

OBSK 

SKP 

ERROR 

CLRDET 

SKPOAV 

ERROR 

DBST 

ERROR 

CLRDET 

SKPDAV 

SKP 

ERROR 

DBST 

SKP 

ERROR 

TAD 

SZA 

ERROR 

OONLOP 



INTFLG 



OLA 



OLA 



INTFLO 
OLA 



«»««••••••«•* 

/SETUP TEST COUNT AND TEST LOOP ADDRESS 

/SIMULATOR ITERATION COUNTER 

/CHECK TO SEE IF THE SIMULATOR II SELECTED 

/SIMULATOR CONTROL WORD 

/LOAD THE SIMULATOR CONTROL WORD 

/CLEAR ALL FLAGS 

/SET REAL TIME OLOOK INT E.NA 

/CLEAR PROGRAM INTERRUPT FLAG 

/TURN THE INTERRUPT ON 

/CLEAR SIMULATOR DETECTOR F/FIS 

/SKIP ON SIMULATOR DATA AVAIL, DETECTOR TIT 

/DATA AVAILABLE SET AFTER INITIALIZE 

/TRANSMIT. SET DATA AVAILABLE AND DATA REAOV 

/SKIP ON DATA READV 

/DATA READY FLAB NOT SET 

/SKIP ON DATA AVILABLE DETECTOR F/F 

/DBTO FAILED TO SET DATA AVAILABLE 

/CLEAR SIMULATOR DETECTOR F/F'S 

/SKIP ON DATA AVAILABLE DETECTOR F/F 

/DATA AVAILABLE OOT CLEARED 

/CLEAR DATA READY PLAG SET DATA ACCEPTED 

/SKIP ON DATA READY FLAG 

/DBCF FAILED TO CLEAR OATA READY 

/CLEAR SIMULATOR DETECTOR F/FiS 

/SKIP ON SIMULATOR DETECTOR F/F 

/DATA AVAILABLE GOT CLEARER 

/SKIP ON DATA ACCEPTED, OATA AVAILABLE 

/DBCF FAILED TO SET DATA ACCEPTED 

/CLEAR SIMULATOR DETECTOR F/F'5 

/SKIP ON DATA AVAILABLE SIMULATOR DETECTOR F/F 

/DBST FA I LEO TO CLEAR OATA AVAILABLE 
/SKIP ON DATA ACCEPTED 

/1ST DBST FAILED TO CLEAR DATA ACCEPTED 
/GET THE PROGRAM INTERRUPT FLAG 

/PROGRAM INTERRUPTED 

/DONE OR REPEAT TEST IS SR • 1000 



/T E 3T 22 . IS ONLY T E STed "HeN SIMULATOR jS S E LEcTeo". t HE t E'T G HECKS 

/that data available can be set by dbto and cleared by »tsi» 



»•»*»»««*••«* 



1437 4423 TEST28, LOOPPC 

1460 7777 -1 

1461 4436 SJMCHK 

1462 S000 6000 

1463 4437 LODSIM 



/SETUP TEST COUNT AND TEST LOO' ADDRESS 
/SIMULATOR ITERATION COUNTER 
/CHECK FOR SIMULATOR 
/SIMULATOR CONTROL WORD 
/LOAD THE CONTROL WORD 



/DKCa-AA OPTION TEST 1 MA I NQEC0S.OJDKA-B.L 4K PAL10 "142A 1 6 .JUN. 75 



S|58 
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1464 
1465 
1466 
1467 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1500 
1531 
1502 
1503 
1304 
1505 
1506 
1307 
1510 
1511 
1512 
1513 
1314 
1515 
1516 
1317 
152? 
1521 
1522 
1523 
1524 
1525 
1526 



6007 
4146 
6001 
3841 
6136 
6165 
7610 
4427 
6574 
6571 
4427 
6165 
4427 
6156 
6165 
7610 
4427 
6007 
4146 
6001 
6571 
7610 
4427 
6574 
6165 
4427 
6136 
6165 
7610 
4427 
6007 
6571 
7610 
4427 
4424 



OAF 

RTOENA 

ION 

OCA 

CLRDET 

SKPDAV 

SKP 

ERROR 

DBTO 

DBSK 

ERROR 

SKPDAV 

ERROR 

CLRDET 

SKPOAV 

SKP 

ERROR 

CAF 

RTOENA 

ION 

DBSK 

SKP 

ERROR 

DBTD 

SKPDAV 

ERROR 

CLRDET 

SKPOAV 

5KP 

ERROR 

CAF 

DBSK 

SKP 

FRROR 

donlop 



INTFLG 



CLA 



OLA 



CLA 



/CLEAR ALL FLAGS 

/SET REAL TIME CLOCK INT ENA 

/TURN THE INTERRUPT ON 

/CLEAR PROGRAM INTERRUPT FLAG 

/CLEAR SIMULATOR DETECTOR F/F'S 

/SKIP ON DATA AVAILABLE DETECTOR F/F 

/DATA AVAILABLE SET AFTER INITIALIZE 

/TRANSMIT . SET DATA READY AND OATA AVAILABLE, 

/SKIP ON DATA READY 

/DBTD FAILED TO SET DATA READY 

/SKIP ON DATA AVAILABLE 

/DBTD FAILED TO TO SET DATA AVAILABLE 

/CLEAR SIMULATOR DETECTOR F/F'S 

/SKIP ON DATA AVAILABLE DETECTOR F/F 

/TS1 FAILED TO CLEAR OATA AVAILABLE 

/CLEAR ALL FLAGS 

/SET REAL TIME CLOCK INT ENA 

/TURN THE INTERRUPT BACK ON 

/SKIP ON OATA READY 

/PUT FAILED TO CLEAR DATA READY 

/TRANSMIT . SET DATA READY AMD DATA AVAILABLE 

/SKIP ON DATA AVAILABLE DETECTOR F/F 

/DATA AVAILABLE FAILED TD SET 

/CLEAR S1MULAT0H DETECTOR F/F'S 

/SKIP ON DATA AVAILABLE DETECTOR F/F 

/TS1 FAILED TO CLEAR OATA AVAILABLE 
/CLEAR ALL FLAGS 
/SKIP ON DATA READY 

/INIT FAILED TO CLEAR DATA READY 
/DONE OR REPEAT TEST IF 5R • 1000 



//FIRST SECTION OF SERIAL LINE UNJT njAGNOSTjc 
'IrV. II ' F LEAH SL, J INT M » Br ISSUING A KIE COMMAND, THEN TEST THE SLU KMIT 

/FLAG TO SET BY TFL AND CLEAR RY TCP', THE FLAG IS CHECKED WITH TSF AND SPI IF AN 
/INTERRUPT OCCURRED, IT MAY BE DUE TO INT ENA NOT BEING CLEARED BY KIE AND DATA BIT 11 ON 



1527 4104 

1530 3252 

1531 4423 

1532 7777 

1533 4436 

1534 4000 

1535 4437 



1536 3041 

1537 6007 
1540 4146 



TEST23, 



JMS PATCH 
SKPCHN 
LOOPPC 
•1 

S1MCHK 

4000 

LODSIM 



OCA INTFLG 
CAF 

RTCENA 



/SETUP TEST COUNT AND SCOPE LOOPING ADDRESS 

/SIMULATOR ITERATION COUNTER 

/CHECK TO SEE IF SIMULATOR IS SELECTED 

/CONTROL WORD F0» THE SIMULATOR 

/LOAD SIMULATOR IF SELECTED ALSO SET SCOPE 

/LODP » THIS ADDRESS IF SIMULATOR SELECTED 

/OTHERWISE SCOPE LOOP IS THIS ADDRESS *1 

/CLEAR PROSRAM INTERRUPT FLAG 

/CLEAR ALL FLAGS ♦ SET SLU INT ENA 

/SET HEAL TIME CLOCK I NT ENA 
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1151 »»H !«2J 



1541 
1542 
1543 
1544 
1545 
154S 
1547 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1960 
1561 
1542 
1563 
1564 
1565 
1566 
1567 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 

lift! 

1601 
1602 
1603 
1634 
1605 
1606 
1607 
1610 



6001 
6031 
7610 
4427 
6035 
7610 
4427 
1041 
7640 
4427 
6040 
7410 
4427 
6041 
4427 
6045 
7410 
4427 
6031 
7410 
4427 
1041 
7640 
4427 
6042 
7410 
4427 
6041 
7410 
4427 
604J 
7610 
4427 
6031 
7610 
4427 
1041 
7640 
4427 
4424 



1611 4423 

1612 7777 

1613 4436 

1614 4000 

1615 4437 



1616 3041 

1617 4007 



ION 

ksp 

SKP CLA 

ERROR 

Kit 

SKP CLA 
ERROR 

TAD INTFLG 
5ZA CI* 
ERROR 

tfu 

SKP 

ERROR 

TSF 

ERROR 

SP! 

SKP 

ERROR 

KJF 

SKP 

ERROR 

TAD INTFLG 

5ZA CLA 

ERROR 

TCP 

SKP 

ERROR 

TSF 

SKP 

ERROR 

SPI 

SKP CIA 

ERROR 

KSP 

SKP CLA 
ERROR 

TAD I NTFLG 
SHA CL* 
ERROR 
DONLOP 



/TURN THE INTERRUPT ON 

/CHECK TO SEE IF RECEIVE PUS IS A 

/RECEIVE F1»AS SET OR KSF SKIPPED 
/CLEAR SLU INT ENA 

/KIE SKIPPED, 



/PROGRAM INTERRUPTED 
/SET THE TRANSMIT FLAG 

/TFL SKIPPED 
/SKIP ON XMIT FLAG 

/TFL * TP3 FAILEO TO SET XMJT FLAG OR NO SKIP OCCURRED 
/SKIP ON XHIT/RECEIVE * !NT ENA ON A 1 

/SPI SKIPPED OR KIE AND DATA 11 L FAILED TO CLEAR INT ENA 
/SKIP ON RECEIVE FLAG 

/RECEIVE FLAG SET 9Y ASOVE CODE 
/GET THE PROGRAM INTERRUPT FLAG 

/PROGRAM INTERRUPTED WITHOUT INT ENA SET 
/CLEAR TRANSMIT FLAG 

/TCP SKIPPED 
/SKIP ON XMIT FLAG 

/TSF * TP3 FAILED TO CLEAR XMIT FLAG 
/SKIP ON XHIT/RECEIVE + INT ENA ON A 1 

/SPI SKIPPED WITH XMIT FLAG » INT ENA A 1 
/SKIP ON RECEIVE FLAG 

/RECEIVE FLAG GOT SET BY ABOVE CODE 
/GET THE PROGRAM INTERRUPT FLAG 

/PROGRAM INTERRUPTED WITHOUT [NT ENA * FLAG 
/REPEAT TEST IF NOT DONE OR LOOP ON TEST IF SRS.l 



/«»«•«)»•»**»«*•***••#»»*»**«»**»»•»•»«*<»»*«»*«•*««»»»«»«*«**»••**«*#«« 

/TEST 34 - CHECKS THAT C*F WILL CLEAR THE TRANSMIT FLAG, THE PROGRAM 
/CHECKS THAT NO INTERRUPTS OCCURRED, 

/*••»•«•••»*•»••»«••»•«»•**»«««»•»#«*»*»»*•»•«»**»»«»*•*»«•«•»*»»«»««• 



TEST24, LOOPPC 
■1 

■ SIMCHK 
4000 
LQDSIM 



OCA INTFLG 
CAP 



/SETUP TEST COUNT AND SCOPE LOOPING ADDRESS 

/SIMULATOR ITERATION COUNTER 

/CHECK TO SEE IF SIMULATOR IS SELECTED 

/CONTROL WORD FOR THE SIMULATOR 

/LOAD SIMULATOR !F SELECTED ALSO SET SCOPE 

/LOOP ■ THIS ADDRESS JP SIMULATOR SELECTED 

/OTHERWISE SCOPE LOOP IS THIS ADDRESS *1 

/CLEAR PROGRAM INTERRUPT FLAG 
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1620 4146 

1671 6001 

1622 6035 

1623 6040 
16Z4 6041 

1625 4427 

1626 6045 

1627 7410 

1630 4427 

1631 6007 

1632 6041 

1633 7410 

1634 4427 

1635 1041 

1636 7640 

1637 4427 

1640 6031 

1641 7610 

1642 4427 

1643 4424 



1644 
1643 
1646 
1647 
1650 



1651 
1652 
1653 
1654 
1655 
1656 
1657 
1640 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1670 
1671 
1672 
1673 
1674 
16'S 



4423 
7777 
4436 
4000 
4437 



3041 
6007 
4146 
6001 
6041 
'410 
4427 
604S 
7410 
4427 
1041 
7640 
4427 
6040 
A041 
4427 
6045 
4427 
2041 
4427 
7200 



RTCENA 

ION 

KIE 

TFL 

TSF 

ERROR 

SPI 

SKP 

ERROR 

CAP 

TSF 

SKP 

ERROR 

TAD INTFLG 
SiA CLA 
ERROR 
KSP 

SKP CLA 

ERROR 

DONLOP 



/SET REAL TIME CLOCK I NT ENA 
/TURN THE INTERRUPT ON 
/CLEAH SLU INT ENA 
/SET THE TRANSMIT FLAG 
/SKIP ON THE XMIT FLAG 

/TFL AND TP3 FAILED TO SET THE XM|T FLAG 
/SKIP ON XMIT/RECEIVE * INT ENA 

/SPI SKIPPED WITHOUT INT ENA SET OR KIE FAILED 

/CLEAR ALL FLAGS 

/SKIP ON THE TRANSMIT FLAG 

/88UF INIT HIGH FAILED TO CLEAR XMIT FLAG 
/GET THE PROGRAM INTERRUPT FLAG 

/PROGRAM INTERRUPTED CHECK INT ENA', 
/SKIP ON RECEIVE FLAG 

/RECEIVE FLAG SET BT ABOVE CODE 

/REPEAT TEST IF NOT OONE OR LOOP IF SR2tl 



/TEST 25 • CHECK THAT SA' UJLL SET SLU INT ENABLE AND THAT KIE 
/AND DATA 11 ON a WILL CLEAR IT USING XMIT FLAG TO INTERRUPT ON, 
/SPI IS CHECKED TO SKIP AND NOT TO SKIP, 

/•»» » «•••«••• ••»• »•• 



TEST25, LOOPPC 
•1 

SIMCHK 

4000 

LOOSIM 



DCA INTFLG 
CAF 

RTCENA 

ION 

TSF 

SKP 

ERROR 

SPI 

SKP 
ERROR 

TAD INTFLG 

SZA CL' 

ERROR 

TFL 

TSF 

ERROR 

SPI 

ERROR 

ISJ INTFLG 

ERROR 

CLA 



/SETUP TEST COUNT AND SCOPE LOOPING ADDRESS 

/SIMULATOR ITERATION COUNTER 

/CHECK TO SEE |F SIMULATOR IS SELECTED 

/CONTROL WORD FOR THE SIMULATOR 

/LOAD SIMULATOR IF SELECTED ALSO SET SCOPE 

/LOOP ■ THIS ADDRESS IF SIMULATOR SELECTED 

/OTHERWISE SCOPE LOOP IS THIS ADDRESS *1 

/CLEAH PROGRAM INTERRUPT FLAG 

/CLEAR ALL FLAGS BUT SET SLU INTERRUPT ENABLE 

/SET REAL TIME CLOCK I NT ENA 

/TURN THE INTERRUPT ON 

/SKIP ON XMIT FLAG 

/XMIT FLAG SET AFTER A CAF 

/SKIP ON XMIT/RECEIVE AND INT ENA ON A 1 

/SPI SKIPPED WITH INT ENA SET AND NO FLAG 
/GET THE PROGRAM INTERRUPT FLAG 

/PROGHAM INTERRUPTED WITHOUT XMIT PLAG 

/SET THE TRANSMIT FLAG 

/5KJP ON THE TRANSMIT FLAG 

/TPL FAILED TO SET THE XMIT FLAG 

/SKIP ON X*UT FLAG AND I NT ENA ON A 1 

/CAF FAILED TO SET SLU INT ENA OR SP I DIDN'T SKIS 

/OID THE PROGRAM INTERRUPT WITH XMIT * INT ENA 

/PROGHAM FAILED TO INTERRUPT WITH XMIT ♦ INT ENA SET 

/CLEAH THE ACCUMULATED 
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1676 6035 

1677 3041 
1700 6001 

1731 6041 

1732 4427 

1703 6045 

1704 7410 

1705 4427 

1706 1041 
17B7 7640 

1710 4407 

1711 6042 

1712 6041 

1713 7410 

1714 4427 

1715 6031 

1716 7410 
171? 4427 
1720 4424 



1721 
1722 
1723 
1724 
1725 



1726 
1727 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1750 
1791 
1732 
1733 
1754 



4423 
7777 
4436 



3041 
6007 
4146 
6035 
6001 
6040 
6041 
4427 
6045 
7610 
4427 
1041 
76419 
4427 
7301 
6835 
6041 
4427 
6045 
4427 
7200 
2041 
4427 



Kit 

OCA INTFLG 
I0H 

tsf 

ERROR 
SPI 
SKP 
ERROR 

TAD INTFLG 
524 OUA 
ERROR 

Tor 

TSF 
SKP 
ERROR 

Ksr 

SKP 

ERROR 

OONLOP 



/CtEAH INT ENA ON SLU 

/CLEAR PROGRAM INTERRUPT FLAG, 

/TURN THE INTERRUPT BACK ON 

/SKIP ON TRANSH I T PL AS 

/XMIT FLAG OOT CLEARED 

/SKIP ON XHIT ANS I NT ENA ON A 1 

me AND DATA 11 FAILED TO CLEAR INT ENA 
/SET THE PROGRAM INTERRUPT FLAG 

/PROGHAH INTERRUPTED WITHOUT I NT ENA SET 
/CLEAR XMIT FLAG 
/SKIP ON TRANSMIT FLAG 

/TCF FAILED TO CLEAR XMIT FLAG 
/SKIP ON RECEIVE FLAG 

/RECEIVE FLAG GOT SET IT ABOVE CODE 
/REPEAT TEST IF NOT DONE OR LOOP IF i*Ui 



/....••.ft**..***..***..*..*.*.**.*...*.*....*..********.*.*****.**.*.* 

/TEST 26 . CHECKS THAT SLU INT ENA CAN BE SET AND CLEARO BY KIE 
/AND DATA BIT U USING THE XHIT FLAG TO INTERRUPT ON, 

/••*.•»»«*«.»*»««.«.»•.*•».•**#*#*.«.*.•«»*«•«**»•»*»***•»••««*.*.*•*• 



TEST26, LOOPPC 
-1 

SI«5HK 

4000 

LOOSIM 



DCA INTFLG 
CAP 

"TCENA 

KIE 

ION 

TFL 

TSF 

ERROR 

SPI 

SKP CLA 
ERROR 

TAD INTFLG 
SiA CLA 
ERROR 
CLA CLL 
KIE 
TSF 
ERROR 
SPI 
ERROR 
CLA 

IS! INTFLG 
ERROR 



/SETUP TEST COUNT AND SCOPE LOOPING ADDRESS 

/SIMULATOR ITERATION COUNTER 

/CHECK TO SEE IF SIMULATOR IS SELECTED 

/CONTROL WORD FOR THE SIMULATOR 

/LOAD SIMULATOR IF SELECTEO ALSO SET SCOPE 

/LOOP S THIS ADDRESS IF SIMULATOR SELECTED 

/OTHERWISE SCOPE LOOP IS THIS ADDRESS *1 

/CLEAR PROGRAM INTERRUPT FLAG 

/CLEAR ALL FLAGS 

/SET REAL TIME CLOCK INT ENA 

/BLEAR SLU INTERRUPT ENAILE 

/TURN THE INTERRUPT ON 

/SET THE TRANSMIT FLAG 

/SKIP ON TRANSMIT FLAG 

/TFL FAILED TO SET TRANSMIT FLAG 

/SKIP ON XMIT/RECEIVE * INT ENA ON A 1 

/ERROR, I NT ENA SET OR KIE FAILED TO CLEAR INT ENA 
/GET THE PROGRAM INTERRUPT FLAG 

/PROGRAM INTERRUPTED WITHOUT INT ENA SET 

/SET DATA 11 TO A 1 

/SET I NT ENA 

/SKIP ON TRANSMIT FLAG 

/XMIT FLAG GOT CLEARED 

/SKIP ON XMIT * INT ENA ON A 1 

/KIE AND DATA 11 ON A 1 FAILED TO SET INT ENA 



/PROGRAM FAILED TO INTERRUPT WITH INT ENA * XMIT FLAG 
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1755 


3041 


DCA INTFLG 




1736 


6035 


KIE 


/CLEAR INTERRUPT ENABLE 


1757 


6001 


I ON 


/TURN THE INTERRUPT ON 


1760 


6041 


TSF 


/SKIP ON XMIT FLAG 


1761 


4427 


ERROR 


/XMIT FLAG CLEARED 


1762 


6045 


SPI 


/SKIP ON XMIT 4 INT ENA ON A 1 


1763 


7610 


SKP CLA 




1764 


4427 


ERROR 


/KIE . DATA 11 ON A a FAILED TO CLEAR I NT ENA 


1765 


1041 


TAD INTFLG 


/GET THE PROGRAM INTERRUPT FLAG 


1766 


7640 


S2A CLA 




1767 


4427 


ERROR 


/PROGRAM INTERRUPTED WITHOUT I NT ENA SET 


1770 


6042 


TCF 


/CLEAR THE XMIT rL*G 


1771 


6041 


TSF 


/SKIP ON SLU XMIT FLAG 


1772 


7610 


SK P CLA 




1773 


4427 


ERROR 


/TCF FAILED TO CLEAR XMIT FLAG 


1774 


6031 


KSF 


/SKIP ON RECEIVE FLAG 


1775 


7610 


SKP CLA 




1776 


4427 


ERROR 


/RECEIVE FLAG SET ST ABOVE CODE 


1777 


4424 


DONLOP 


/REPEAT TEST IF NOT DONE OR LOOP IF SR2»1 



/#*#»#«.•.*.#«*•»#*»####.###•»#•»»»»•#»**.«*#«•»*»»•#•#*•*#*#•»««•»### 

/TEST 27 - CHECKS THAT TLS WILL CLEAR THE XMIT FLAG AND THEN SET IT WITH 
/XMIT BUFF MT H, THE PROGRAM THEN CLEARS THE XMIT FLAG AND UAlTS FOR 
/RCV DATA AVAILABLE H TO SET RECEIVE FLAG, THE RECEIVE FLAG IS CHECKED TO 
/SKIP AND INTERRUPT AND THEN TO CLEAR BY KCF', 

/**.###*.•»• »*»»ft»#»»«ft»»**«««»«*«»i*. »»»»»•»•**«.». »*«*«•» •«#«»«*»«•* 



2000 


1021 


TAD 


0P1SEL 


/GET THE HARDWARE CONFIGURATION 


2001 


U377 


AND 


(100 


/MASK OUT THE XOR BIT 


2002 


7630 


SNA 


CLA 


/IS IT RUNNING ON THE XOR 


2003 


5212 


JMP 


TEST27 


/NO i GO TO THE NORMAL TEST 


2004 


4423 


LOOPPC 




/YES, SETUP TEST COUNT AND SCOPE LOOP 


2005 


7772 


• 6 




/SIMULATOR ITERATION COUNTER 


2006 


4436 


SPCHK 




/CHECK TO SEE IF SIMULATOR SELECTED , 


2007 


4030 


4030 




/CONTROL WORD FOR SIMULATOR 


2010 


4437 


LOOSIM 




/LOAD SIMULATOR. MUST BE SET FOR XOR 


2011 


3217 




TEST27*5 


/START TEST 


2012 


4423 


TEST27, LOOPPC 




/SETUP TEST COUNT AND SCOPE LOOPING ADDRESS 


2013 


7740 


.40 




/SIMULATOR ITERATION COUNTER 


2014 


4436 


SJMCHK 




/CHECK TO SEE IF SIMULATOR IS SELECTED 


2015 


4000 


4000 




/CONTROL WDRO FOR THE SIMULATOR 


2016 


4437 


LOOSIM 




/LOAD SIMULATOR IF SELECTED ALSO SET SCOPE 
/LOOP = THIS ADDRESS IF SIMULATOR SELECTED 
/QTHERW I SE SCOPE LOOP IS THIS ADDRESS *1 


2017 


3041 


DCA INTFLG 


/CLEAR PROGRAM INTERRUPT FLAG 


2020 


6007 


CAF 




/CLEAR ALL FLAGS BUT SET SLU INT ENA 


2021 


4146 


RTCENA 




/SET HEAL TIME CLOCK INT ENA 


2022 


6001 


ION 




/TURN THE INTERRUPT ON 


2023 


6040 


TFL 




/SET THE TRANSMIT FLAG 


2024 


6041 


TSF 




/SKIP ON XMIT FLAG 


2025 


4427 


ERROR 




/TRANSMIT FLAG FAILED TO SET BY TFL 


2026 


6045 


SPI 




/SKIP ON XMIT FLAG AND INT ENA ON A 1 


2027 


4427 


ERROR 




/SPI FAILED TO SKIP WITH INT ENA * FLAG SET 


2033 


2041 


ISZ INTFLG 


/DID THE PROGRAM INTERRUPT 


2031 


4427 


ERROR 




/PROGRAM FA1LE0 TO INTERRUPT WITH XMIT AND 
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2332 


6246 


TL» 


/LOAD TRANSMIT UPPER, TRANSMIT AND CLEAR KM] T FLAG 


2233 


7612 


SKP OLA 




5634 


4427 


ERROR 


/TLS SKIPPED 


2239 


6221 


SON 


/TURN THE INTERRUPT ON 


2036 


6241 


Tsr 


/SKIP ON THE TRANSMIT FLAG 


2837 


7612 


SKP OLA 




22419 


4427 


ERROR 


/TLS FAILED TO CLEAR XM It FLAG 


2041 


4431 


TSFWAT 


/WAIT FOR TRANSMIT FLAG TO SET 


2042 


4427 


ERROR 


/XMIT BUFF MT FAILEO TO UT XMIT FLAG 


2343 


2241 


ISi INTFLG 


/OIO THE PROGRAM I NTERRU'T? 


2244 


4427 


ERROR 


/ERROR, NO INTERRUPT WITH XMIT AND INT ENA SET 


2249 


6249 


SP! 


/SKIP ON SLU INTERRUPT (XMIT SIDE) 


2246 


4427 


ERROR 


/FAILEO TO SKIP OR INT EVA OR FLAG GOT CLEARED 


224? 


6242 


TOP 


/CLEAH TRANSMIT FLAG 


2292 


6221 


ION 


/TURN THE INTERRUPT ON 


2291 


4432 


KSFWAT 


/Wait for the receive flag to set 


2252 


4427 


ERROR 


/NO SKIP, OR RECEIVE FLA8 NOT SET BY ROD DATA AVAILABLE 


2253 


6249 


SPI 


/SKIP ON ROV FLAG ANO INT ENA 


2254 


4427 


ERROR 


/2 SIDE OF RcV FLAG NOT LOW OR FAILED TO INTERRUPT 


2255 


2241 


IS! INTFIG 


/OIO RCV AND I NT ENA CAUSE AN INTERRUPT? 


2256 


4427 


ERROR 


/NO, ERROR 


2297 


6232 


KCF 


/CLEAR RECEIVE FLAG 


2262 


7612 


SKP CLA 




2261 


44J7 


ERROR 


/KCF SKIPPED 


2262 


6221 


ION 


/TURN THE INTERRUPT ON 


2263 


6231 


KSP 


/SKIP ON RECEIVE FLAG 


2264 


7612 


SKP CLA 




2269 


4427 


ERROR 


/kcf * TP3 failed to clear receive flag 


2266 


1241 


TAO INTFLG 


/GET THE PROGRAM INTERRUPT FLAG 


2267 


7642 


5ZA OL» 




2270 


4427 


ERROR 


/PROGRAM INTERRUPTED WITH RCV "LAG CLEARED 


2271 


6241 


Tsr 


/SKIP ON X«IT FLAG 


2272 


7612 


SKP CLA 




2273 


4427 


ERROR 


/TRANSMIT FLAG GOT RESET BY ABOVE CODE 


2274 


4424 


OONLOP 


/REPEAT TEST IF NOT DONE 0" SCOPE LOOP IF SR2«1 



/test 28 . checks that tp c will not c lear xmit flag and that it will 
/reset it, test 28 also checks that the receive flag will set and that it 
/can 8e cleared by kcc', 

/ ••* 



2275 


1221 


TAO 


0P1SEL 


/GET THE HARDWARE CONFIGURATION 


2276 


3377 


AND 


(122 


/MASK OUT THE XOR SIT 


2277 


7692 


SNA 


CLA 


/IS THE XOR SELECTED 


2103 


5307 


JMP 


TEST28 


/NO, DO THE NORMAL TEST 


2101 


4423 


LOOPPC 




/YES. SETUP TEST COUNT AND SCOPE LOOP 


2102 


7772 


.6 




/SIMULATOR ITERATION COUNTER 


2103 


4436 


SIMCHK 




/CHECK TO SEE IP SIMULATOR SELECTEO 


21*4 


4210 


4010 




/CONTROL WORD FOR SIMULATOR 


2125 


4437 


LODSIM 




/LOAD SIMULATOR CONTROL WORD 


2106 


5314 


JMP 


TEST28*5 


/START THE TEST 


2107 


4423 


TEST28, LOOPPC 




/SETUP TEST COUNT AND SCOPE LOOPING ADDRESS 


2110 


7742 


• 40 




/SIMULATOR ITERATION COUNTER 


2111 


4436 


SJMCHK 




/CHECK TO SEE IF SIMULATOR IS SELECTED 
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2112 


4222 


4202 


/CONTROL WORD FOR THE SIMULATOR 


2113 


4437 


LOOSIM 


/LOAD SIMULATOR IF SELECTED ALSO SET SCOPE 








/LOOP 9 THIS ADDRESS IF SIMULATOR SELECTED 








/OTHERWISE SCOPE LOOP IS THIS ADDRESS *1 


2114 


3041 


OCA INTFLG 


/CLEAR PROGRAM INTERRUPT 


2115 


6207 


CAP 


/CLEAR ALL FLAGS BUT SET SLU I NT ENA 


2116 


4146 


RTCENA 


/SET REAL TIME CLOCK INT ENA 


2117 


6201 


ION 


/TURN THE INTERRUPT ON 


2120 


6040 


TFL 


/SET THE TRANSMIT FLAG 


2121 


6041 


TSP 


/SKIP ON TRANSMIT FLAG 


2122 


4427 


ERROR 


/TFL FAILEO TO SET XMJT FLAG 


2123 


2241 


ISH INTFLG 




2124 


4427 


ERROR 


/PROGRAM FAILED TO INTERRUPT 


2125 


6044 


TPC 


/LOAD TRANSMIT BUFFER AND TRANSMIT 


2126 


7610 


SKP CLA 




2127 


4427 


ERROR 


/TPC SKIPPED 


2130 


6041 


TSF 


/SKIP ON XMJT PLAG 


2131 


4427 


ERROR 


/TPC CLEARED XMIT FLAG 


2132 


6042 


TCF 


/CLEAH TRANSMIT FLAG 


2133 


6001 


ION 


/TURN THE INTERRUPT SACK ON 


2134 


4431 


TSFWAT 


/WAIT FOR XMIT BUFF MT H TO SET XMIT FLAG 


2135 


4427 


ERROR 


/TPC FAILED TO SET XMIT FLAG 


2136 


2041 


ISH INTFLG 


/CHECK TO SEE IF PROGRAM INTERRUPTED 


2137 


4427 


ERROR 


/PROGRAM FA I LEO TO INTERRUPT WITH XMIT FLAG * INT ENA 


2140 


6042 


TCF 


/CLEAR THE TRANSMIT FLAG 


2141 


6001 


ION 


/TURN THE INTERRUPT ON 


2142 


4432 


XSFWAT 


/WAIT FOR RECEIVE FLAG TO SET 


2143 


4427 


ERROR 


/RECEIVE FLAG FAILED TO SET 9Y A TPC COMMAND 


2144 


6245 


SPI 


/SKIP ON RCV FLAG AND INT ENA 


2145 


4427 


ERROR 


/FAILED TO SKIP 


2146 


2241 


IS8 INTFLG 


/DID THE PROGRAM INTERRUPT 


2147 


4427 


ERROR 


/FAILED TO INTERRUPT WITH RCV ANO INT ENA SET 


2190 


6232 


KCC 


/CLEAR THE RECEIVE FLAG 


2191 


7612 


SKP CLA 




2192 


4427 


ERROR 


/KeO SKIPPED 


2193 


6021 


ION 


/TURN THE INTERRUPT ON 


2154 


6231 


KSF 


/SKIP ON RECEIVE FLAG 


2155 


7610 


SKP CLA 




2156 


4427 


ERROR 


/KCC FAILEO TO CLEAR Rev FLAG 


2197 


1041 


TAD INTFLG 


/GET THE PROGRAM INTERRUPT FLAG 


2160 


7640 


SZA CLA 




2101 


4427 


ERROR 


/PROGRAM INTERRUPTED WITH RCV FLAG CLEARED 


2162 


4424 


OONLOP 


/REPEAT TEST IF MOT DONE OR LOOP ON TEST IF SR2»1 


2163 


5776' 


JMP TEST29 




2176 


2200 






2177 


0100 








2202 


IFDEF 0P13K <PAGE> 





/TEST 2» • CHECKS THAT KRB WILL CLEAR THE RCV FLAG, THE RCV FLAG 
/IS SET BY ISSUING TLS COMMAND', 
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2200 4423 

2201 7775 

2202 4J04 

2203 3252 

2204 3042 

2205 4436 

2206 4017 

2207 4437 



TEST29, LOOPPC 

• 3 

JHS 

SKPCHN 
DCA 

SIMCHK 

• 817 
LOOSIM 



2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2240 
2241 
2242 
2243 
2244 
2245 
2246 



3041 
6007 
4146 

6001 
6046 
4431 
4427 
2041 
4427 
6042 
6001 
4432 
4427 
6034 
7610 
4427 
6031 
4427 
2041 
4427 
6036 
7610 
4427 
6001 
6031 
7610 
4427 
1041 
7640 
4427 
4424 



PATCH 
CLKFLG 



BCA INTFLG 
CAF 

RTCENA 

ION 

TLS 

TSFWAT 
ERROR 

IS! INTf LG 

ERROR 

TCr 

ION 

KSFHAT 

ERROR 

KRS 

SKP CIA 
ERROR 

ksf 

ERROR 

IS! INTFLG 

ERROR 

KR8 

SKR CLA 

ERROR 

ION 

KSF 

SKP CLA 
ERROR 

TAD INTFLG 

se* cla 

ERROR 
OONLOP 



/SETUP TEST COUNT AND SCOPE LOOP I NO ADDRESS 
/SIMULATOR ITERATION COUNTER 
/SET UP SKIP CHAIN 

/SET INTERRUPT TO IGNORE RTC 

/CHECK TO SEE IF SIMULATOR IS SELECTED 

/CONTROL HOSD FOR THE SIMULATOR 

/LOAD SIMULATOR IF SELECTED ALSO SET SCOPE 

/LOOP « THIS ADDRESS IF SIMULATOR SELECTED 

/OTHERWISE SCOPE LOOP IS THIS ADDRESS *1 

/CLEAR PROGRAM INTERRUPT FLAS 

/CLEAH ALL FLAGS AND SET SLU I NT ENA 

/SET REAL TIME CLOCK INT ENA 

/TURN THE INTERRUPT ON 

/TRANSMIT AND CLEAR THE FLAG 

/WAIT FOR THE XMIT FLAG TO SET 

/XMIT FLAG FAILED TO SET BY TLS 

/DID THE PROGRAM INTERRUPT 

/FAILED TO INTERRUPT WITH INT ENA AND XMIT FLAB 

/CLEAH XMIT FLAG 

/TURN THE INTERRUPT ON 

/WAIT FOR THE RCV FLAG TO SET 

/RECEIVE FLAG FAILED TO SET 

/READ THE RECEIVE SUFFER 

/KRS SKIPPED 
/SKIP ON RECEIVE FLAG 
/KRS CLEARED THE RCV FLAO 
/DID THE PROGRAM INTERRUPT 

/FAILED TO INTERRUPT WITH INT ENA * RCV FLAG 
/CLEAH RECEIVE FLAG 

/KRS SKIPPED 

/TUHN THE INTERRUPT SACK ON 
/SKIP ON RECEIVE FLAG 

/KR9 FAILED TO CLEAR RECEIVE FLAG 
/GET THE PROGRAM INTERRUPT FLAG 

/PROGRAM INTERRUPTED WITHOUT ReV FLAG SET 
/REPEAT TEST IF NOT DONE OR LOOP IF SR2>1 



/TEST^M^. ^CHECKS THAT CAF WILL CLEAR RcV FLAG 



2247 4423 

2250 7775 

2251 4436 

2252 4017 

2253 4437 



TESTS0, LOOPPC 
• 3 

SIMCHK 

4017 

LODSIM 



/SETUP TEST COUNT AND SCOPE LOOPING ADDRESS 

/SIMULATOR ITERATION COUNTER 

/CHECK TO SEE IF SIMULATOR IS SELECTED 

/CONTROL WORD FOR THE SIMULATOR 

/LOAO SIMULATOR IF SELECTED ALSO SET SCOPE 

/LOOP 5 THIS ADDRESS IF SIMULATOR SELECTED 

/OTHEHWJSE SCOPE LOOP IS THIS ADDRESS 41 
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2254 


3041 


OCA INTFLG 


/CLEAR PROGRAM INTERRUPT FLAG 


2255 


6007 


CAF 


/CLEAR ALL FLAGS 


2256 


4146 


RTCEN* 


/SET HEAL TIME CLOCK INT ENA 


2257 


6001 


IQN 


/TURN THE INTERRUPT ON 


2261 


6146 


TLS 


/TRANSMIT AND CLEAR THE XMIT FLAG 


2261 


4431 


TSFWAT 


/WAIT FOR XMIT FLAG 


2262 


4427 


ERROR 


/XMIT FLAG FAILED TO SET 


2263 


2041 


IS2 INTFLG 


/DID THE PROGRAM INTERRUPT? 


2264 


4427 


ERROB 


/PROGRAM FAILED TO INTERRUPT 


2265 


6042 


igr 


/CLEAR TRANSMIT FLAG 


2266 


6001 


ION 




2267 


4432 


KSFWAT 


/WAIT POP RECEIVE FLAG 


2270 


4427 


ERROR 


/RECEIVE FLAG FAILED TO SET 


2271 


2141 


ISi INTFLG 


/DID THE PROGRAM INTERRUPT 


2272 


4427 


ERROR 


/PROGRAM FAILED TO INTERRUPT 


2273 


6007 


CAF 


/CLEAR ALL FLAGS 


2274 


6001 


ION 


/TURN THE INTERRUPT 3ACK ON 


2275 


6031 


KSF 


/SKIP ON RECEIVE FLAG 


2276 


7610 


SKP CLA 




2277 


4427 


ERROR 


/INITIALIZE FAILED TO CLEAR RECEIVE FLAG 


230S 


4424 


DONLOP 


/REPEAT TEST IF MOT DONE OR LOOP IF SR2»1 



/TEST 31 . CHECKS THE EFFECT OF THE SlU lOT'S UPON THE Ac 
/.........v..*.*.........*..*...........**..* ......................... 



2331 
2302 



4423 
7777 



2303 4436 

2304 4007 

2305 4437 



2306 3041 

2307 6007 

2310 4146 

2311 6001 

2312 7344 

2313 6035 

2314 7a50 

2315 7620 

2316 4427 
2J17 7240 
232S 6032 

2321 7640 

2322 4427 

2323 7240 

2324 6036 

2325 7510 

2326 4427 

2327 7240 

2330 6B34 

2331 7040 

2332 7640 

2333 4427 



TEST31, LOOPPC 
-1 

SIMCHK 

4007 

LOOSIH 



OCA INTFLG 
CAF 

RTCEN* 
!ON 

CLA CLL CMA RAL 
KIE 

CMA RAR 
5NL CLA 
FRRO» 
CLA CMA 
KCC 

SHA CLA 

ERROR 

CLA CMA 

KRB 

SPA 

ERROR 

CLA CMA 

KRS 

CMA 

SJA CLA 
ERROR 



/SETUP TEST COUNT AND SCOPE LOOPING ADDRESS 

/SIMULATOR ITERATION COUNTER 

/CHECK TO SEE IF SIMULATOR IS SELECTED 

/COMTKOL WORD FOR THE SIMULATOR 

/LOAD SIMULATOR IF SELECTED ALSO SET SCOPE 

/LOOP = THIS ADORESS IF SIMULATOR SELECTED 

/OTHERWISE SCOPE LOO= IS THIS ADDRESS *1 

/CLEAR PROGRAM INTERRUPT FLAG 

/CLEAR ALL FLAGS 

/SET REAL TIME CLOCK I NT ENA 

/TURN THE INTERRUPT ON 

/SET THE AC TO .2 

/CLEAH SLU INTERRUPT ENABLE 



/KIE CHANCED THE AC 
/CLEAR RECEIVE FLAG AND AC 
/KCC FAILED TO CLEAR THE AC 

/READ RECEIVE FLAG, CLEAR AC AND READ RECEIVE BUFFER 
/KRS FAILED TO CLEAH AC 

/READ RECEIVE BUFFER . INCLUSIVE OR WITH AC 
/SET THE AO BACK TO 



/KRS CHANGED THE AC 



/3KC6.AA OPTION TEST 1 MA I NQES«0e.D JDKA.B«L «K "AL10 V14ZA 16"J'JN.75 1158 PA1C ]>]l 



2334 


7340 


CLA CLL CMA 




2339 


6031 


KSf 


/SKIP ON RECEIVE FLAG 


2336 


7040 


CMA 




233? 


7640 


SZA CLA 




2342 


4427 


ERROR 


/KSF CHANGED THE AC 


2341 


7240 


CIA CMA 




2342 


6030 


KCF 


/CLEAR RECEIVE FLAG 


2343 


7040 


CMA 




2344 


7640 


SZA CLA 




2345 


4427 


ERROR 


/KCF CHANGED THE AC 


2346 


7240 


CLA CMA 




2347 


6040 


TFL 


/SET TRANSMIT FLAG 


2350 


7040 


CMA 




2351 


7640 


SZA CLA 




2352 


4427 


ERROR 


/TFL CHANGED THE AC 


2353 


7240 


CLA CMA 




2354 


6042 


TCF 


/CLEAR THE TRANSMIT FLAG 


2355 


7040 


CMA 




2356 


7640 


SZA CLA 




2357 


4427 


ERROR 


/TCF CHANGED THE AC 


2360 


7240 


CLA CMA 




2361 


6041 


Tsr 


/SKIP ON TRANSMIT FLAG 


2362 


7040 


CMA 




2363 


7640 


SZA CLA 






4427 


ERROR 


/TSF CHANGED THE AC 




7240 


n A CMA 
\* La h " n " 




2366 


6044 




ii nin TWAN^HTT RUFFER ANH. TRAWSMTT 




7040 


CMA 




237* 


7640 


ERROR^"* 


>Tpr r'HANfirn tuf at 


2371 


4427 






4431 


TSF W A T 


/WAIT FOR THE TRANSMIT FLAG 


2373 


4427 


ERROR 


/TRANSMIT FLAG FAILED TO SET 


2374 


4432 


KSEWAT 


/WAIT FOR THE RECEIVE FLAG 


2375 


4427 


ERROR 


/RECEIVE FLAG FAILED TO SET 


2376 


6042 


TCF 


/CLEAR THE X"IT FLAG 


2377 


6030 


Kcr 


/CLEAR THE RECEIVE FLAG 


2400 


7240 


CLA CMA 




2401 


6045 


SPI 


/SKIP IF XMJT/RCV FLAG SET AND INT ENA SET 


2402 


7040 


CMA 




2403 


7640 


SZA CLA 




2404 


4427 


ERROR 


/SPI CHANGED THE AC 


2405 


7240 


CLA CMA 








TLS 


/LOAD TRANSMIT BUFFER) TRANSMIT * CLEAR FLAG 


94i*7 

L 


7a4a 


CMA 




2410 


7640 






2411 


4427 


ERROR 


/TLS CHANGED THE AC 




4431 




jUiit FflR TWF TRANSMIT Fl iS 


2413 


4427 


ERROR 1 


/TRANSMIT FLAG FAILED TO SET 


2414 


4432 


. KSEWAT 


/WAIT FOR THE RECEIVE FLAG TO SET 


2415 


4427 


ERROR 


/ERROR RECEIVE FLAG FAILED TO SET 


2416 


6042 


TCF 


/CLEAR THE TRANSMIT FLAG 


2417 


6032 


KCC 


/CLEAR AC AND RECEIVE FLAG 


2420 


1041 


TAO INTFLG 


/DID THE PROGRAM INTERRUPT! 


2421 


7640 


SZA CLA 




2422 


4427 


ERROR 


/PROGRAM INTERRUPTED WITHOUT INT ENA SET 
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2423 4424 



2424 
2425 
2426 
2427 
2430 



2431 
2432 



4423 
7775 
4436 
4017 
4437 



3041 
3053 



2433 4433 

2434 4434 

2435 4424 



/REPEAT TEST IF NOT DONE OR LOOP IF SR2»1 



/TEST 32 . CHECKS THAT ALL ZEROES CAN BE TRANSMITTED ANg READ BACK IN 
/ • .••»•»..•••••. 



TEST32, LOOPPC 
-3 

SIMCHK 

1017 

LODSIM 



OCA INTFLG 
OCA 5LUXMT 
SLUDAT 
SLUDER 
DONLOP 



/setup test count and scope loop address 

/simulator iteration counter 

/check to see if simulator is selected 

/control word for the simulator 

/load simulator if selected also set scope 

/loop = this address if simulator selected 

/othehwise scope loop is this address *1 

/clear program i ntehru p t flag 

/clear the word to be transmitted 

/go transmit, read and compare the word 

/data error. word was non zero being read back 

/repeat test if not done or loop if sr2»1 



2436 4423 

2437 7775 
2443 4436 

2441 4017 

2442 4437 



2443 3041 

2444 1056 

2445 3053 

2446 4433 

2447 4434 
245? 4424 



/TEST 33 - CHECKS THAT ALL ONES CAN BE TRANSMITTED AND READ SACK 
/..........»..» •••»• • 



TEST33 i LOOPPC 
• 3 

SJMCHK 

4017 

LODSIM 



DC» INTFLG 
TAD K377 
OCA SLUXMT 
SLUDAT 
SLUDER 
DONLOP 



/SETUP TEST COUNT AND SCOPE LOOP ADDRESS 

/SIMULATOR ITERATION COUNTER 

/CHECK TO SEE IF SIMULATOR IS SELECTED 

/CONTROL WORD FOR THE SIMULATOR 

/LOAD SIMULATOR IF SELECTED ALSO SET SCOPE 

/LOOP = THIS ADDRESS IF SIMULATOR SELECTED 

/OTHERWISE SCOPE LOOP IS THIS ADDRESS *1 

/CLEAR PROGRAM INTERRUPT FLAG 

/SET THE WORD TO BE TRANSMITTED TO ALL ONE'S 
/GO TRANSMIT, READ AND COMPARE 
/DATA ERROR - WORDS DO NOT COMPARE 
/REPEAT TEST IF NOT DONE OR LOOP IF SR2»t 



2451 4423 

2452 7775 

2453 4436 

2454 4017 

2455 4437 



2456 3041 

2457 3053 

2460 4433 

2461 4434 

2462 1096 



/TEST 34 . CHECKS THAT A COMPLEMENT I Wi PATTERN ( 7100-377 ) CAN BE 
/TRANSMITTED A"D READ BACK, 

/ •••• 



TEST34, LOOPPC 
• 3 

SJMCHK 

4017 

LOOSIM 



OC» INTFLG 
OCA SLUXMT 
SLUDAT 
SLUDER 
TAD KJ77 



/SETUP TEST COUNT AND SCOPE LOOPING ADDRESS 

/SIMULATOR ITERATION COUNTER 

/CHECK TO SEE IF SIMULATOR IS SELECTED 

/CONTROL WORD FOR THE SIMULATOR 

/LOAD SIMULATOR IF SELECTED ALSO SET SCOPE 

/LOOP » THIS ADDRESS .IF SIMULATOR SELECTED 

/OTHERWISE SCOPE LOOP IS THIS AOORBSS *1 

/CLEAH PROGRAM INTERRUPT FLAG 

/CLEAR THE WORD TO BE TRANSMITTED 

/CO THANSMIT REAO AND COMPARE THE WORD 

/DATA ERROR • TRANSMITTING ZEROES 



/0KC8.AA OPTION TEST j. MA I NUEC..08.OJDKA.B.L «K PAL10 Vj« 2 A iS.JUN.75 



8158 



PAGE 2«3S 



2463 
2464 
2465 
2466 



3053 
4433 
4434 
4424 



OCA SLUXMT 
SLUOAT 
SLUDER 
OONLOP 



/SET THE WORD TO TRANSMIT E8UAL TO 377 
/TRANSMIT, READ AND COMPARE THE WORD 
/OATA ERROR . WHILE TRANSMITTING 377 
/REPEAT TEST IT NOT DONE OR LOOP IF SR2»1 



/TEST 35 » CHECKS THAT A COMPLEMENT I NU PATTERN (252.125) CAN BE 
/TRANSM I TTED AND READ BACK , 



2467 4423 

247? 7775 

2471 4436 

2472 4007 

2473 4437 



2474 3041 

2475 I860 

2476 3053 

2477 4433 

2500 4434 

2501 1061 

2502 3053 
2533 4433 

2504 443-i 

2505 4424 



TEST35, LOOPPC 
■ 3 

SJMCHK 

4007 

LODSIM 



OCA INTf LG 
TAD K252 
OCA SLUXMT 
SLUDAT 
SLUDER 
TAD K125 
OCA SLUXMT 
SLUOAT 
SLUOER 
DONLOP 



/SETUP TEST COUNT AND SCORE LOOPING ADDRESS 

/SIMULATOR ITERATION COUNTER 

/CHECK TO 3EE IF SIMULATOR IS SELECTED 

/CONTROL WORD FOR THE SIMULATOR 

/LOAD SIMULATOR IF SELECTED ALSO SET SOOPE 

/LOOP = THIS ADDRESS IF SIMULATOR SELECTEO 

/OTHERWISE SCOPE LOOP IS THIS ADDRESS *1 

/CLEAR PROGRAM INTERRUPT FLAS 

/SET THE TRANSMIT WORD TO 252 
/TRANSMIT, READ AND COMPARE THE WORD 
/DATA ERROR . TRANSMITTED A 252 

/SET TRANSMIT WORD TO 125 

/TRANSMIT, READ AND COMPARE THE WORD 

/DATA ERROR - TRANSMITTED A 125 

/REPEAT TEST IF MOT DONE OR LOOP IF SR2 = 1 



^TEST^36^. ^CHECKS FOR LOADING AND READING A BINARY COUNT PATTERN, 



2506 
2507 
251Z 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
252B 
2521 
2522 
2523 
2524 
2525 



4433 
7777 
1056 
7041 
3050 
1050 
3047 
4436 
4007 
4437 
1047 
3056 
3053 
4433 
4434 
4424 



TEST36, 



LOOPPC 
-1 

TAD K377 
OJA 

OCA SAVCNT 
TAD SAVCNT 
OCA TSTBNT 
SJMCHK 
4007 
LODSIM 
TAD TSTCNT 
AND K377 
DCA SLUXMT 
SLUOAT 
SLUOER 
DONLOP 



/SETUP TEST LOOP ADDRESS 
/SIMULATOR ITERATION COUNTER 



/SETUP COUNTER TO TRANSMIT 377 TIMES 



/CHECK FOR THE SIMULATOR 
/CONTROL WORD FOP THE SIMULATOR 
/LOAD THE SIMULATOR IF SELECTED 
/GET THE WORD TO BE TRANSMITTED 
/MASK OFF THE 8 SITS 
/SET TRANSMIT WORD TO THIS NUMBER 
/TRANSMIT READ AND COMPARE THE WORD 
/DATA ERROR. 

/REPEAT TEST IF NOT DONE OR LOOP IF SRf«l 



/TEST 37 - CHECKS FOR LOADING ANO READING A BINARY COUNT PATTERN WITHOUT 
/THE SLU INTERRUPT ENABLE SET TO SAVE TIME IN SKIP CHAIN SO THAT THE 
/WORD CAM BE READ FASTER 



/DKCB-AA OPTION TEST 1 MAINOEC-08-OJOKA.B'L 4K PAL10 
/ 



2526 


4423 


TEST37, LOOPPC 




2527 


7777 


•1 




2530 


1056 


TAD 


K377 


2531 


7041 


CIA 




2532 


3050 


DCA 


SAVCNT 


2533 


1050 


TAD 


SAVCNT 


2534 


3047 


DCA 


TSTCNT 


2535 


4436 


SIMCHK 




2536 


4017 


4017 




2537 


4437 


LODSIM 




2540 


6007 


OAF 




2541 


4146 


«TCE«A 




2542 


6001 


ION 




2543 


3041 


DCA 


INTFLG 


2544 


6035 


KJE 




2545 


1047 


TAO 


TSTCNT 


2546 


1056 


AND 


K377 


2547 


3053 


OCA 


SLUXMT 


2550 


1053 


TAD 


SLUXMT 


2551 


6046 


TLS 




2552 


4431 


TSFWAT 




2553 


4427 


ERROR 




2554 


6042 


TCF 




2555 


4432 


KSFWAT 




2556 


4427 


ERROR 




2557 


7240 


CLA 


CMA 


2560 


6036 


KR8 




2561 


3054 


OCA 


SLUREO 


2562 


1053 


TAO 


SLUXMT 


2563 


7041 


CIA 




2564 


1054 


TAD 


SLUREC 


25S5 


7640 


SiA 


CLA 


2566 


4434 


SLUDER 




2567 


1041 


TAD 


INTFLG 


2570 


7640 


S2A 


CLA 


2571 


4427 


FRROR 




2572 


4424 


OONLOP 




2573 


7000 


NOP 




2574 


7030 


NQP 




2575 


1021 


TAD 


OPISEL 


2576 


2057 


AhjD 


K200 


2577 


765E 


SNA 


CLA 


200? 


5602 


JMR I 


,*2 


2601 


5203 


JMP 


TESTIS 


2632 


3124 


TEST42 
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/SET UP TEST COUNT AN TEST LOOP ADDRESS 

/SIMULATOR ITERATION COUNTER 

/SETUP COUNTER TO TRANSMIT 377 TIMES 



/check to see if simulator is selected 

/simulator control word 

/load the simulator control word 

/clear all flags 

/set real time clock int ena 

/turn the interrupt on 

/clear program interrupt flas 

/clear slu i nt enable 

/get the test cojnt number 

/mask out for ! bits 

/Save the word to be transmitted 

/get the word 

/transmit it 

/wait for the transmit flag to set 
/transmit flag failed to set 
/clear the transmit flag 
/wait for the receive flag to set 
/receive flag failed to set 
/set the ac to all ones 
/read the word 
/save the word read 

/compare the word transmitted with the word read 



/ARE THEY EQUAL? 

/NO, DATA ERROR ON SERIAL LINE UNIT 
/GET THE PROGRAM IMTERRU'T FLAG 

/PROGRAM INTERRUPTED WITHOUT INT ENA 
/DONE? OR REPEAT TEST IF SR2"1 



/GET THL HARDWARE CONFIGURATION 

/CHECK FOR THE SIMULATOR 

/IS IT SELECTEO 

/NO, GO 00 INTERACTION TEST 

/YES, GO DO SIMULATOR TEST 

/INTERACTION TEST 



/«»•••«. •«««**»**.«*».««.**«e«»». •«••«••••»•#**«.*••«*•#•«•». »»•*.•««• 

/THIS TEST IS ENTERED WHEN SIMULATOR IS SELECTED, 
/TEST 38 . CHECKS THAT READER RUN CAN BE SET BY KCC AND KRB AND 
/CLEARED BY INIALUE, THE SIMULATOR IS USED TO CHECK THAT READER 
/RUH SETS AND CLEARS , 
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2603 


4423 


TESTJai LOOPPC 


2604 


7777 


■i 


2605 


4436 


SJHCHK 


2604 


4008 


4000 


2607 


4437 


LODSIM 


2610 


6107 


CAP 


2611 


4146 


RTCENA 


2612 


3041 


OCA 


2613 


4104 


JMS 


2614 


3252 


SKPCHN 


2615 


6001 


ION 


2616 


6196 


CLRDET 


2617 


6197 


SKPRDR 


262? 


7610 


SKP 


2621 


4427 


ERROR 


2622 


6032 


KCC 


2683 


6157 


SKPRDR 


2624 


4427 


ERROR 


2625 


6007 


CAT 


2626 


4146 


RTCENA 


2627 


6001 


I QM 


2633 


6156 


CLRDET 


2631 


6137 


SKPRDR 


2632 


7410 


SKP 


2633 


4427 


ERROR 


2634 


6036 


KRB 


2635 


7300 


CLA 


2636 


6157 


SKPROR 


2637 


4427 


ERROR 


2640 


6007 


CAT 


2641 


4146 


RTCENA 


2642 


6001 


ION 


2643 


6156 


CLRDET 


2644 


6157 


SK'ROR 


2645 


7610 


SKP 


2646 


4427 


ERROR 


2647 


1041 


TAB 


2650 


7640 


SZA 


2651 


4427 


ERROP 


2652 


4424 


DONL.OP 



INTFLS 
PATCH 



CLL 



CLA 



! NTFLG 
CLA 



/SETUP TEST COUNT AND TEST LOOP ADDRESS 

/SIMULATOR ITERATION COUNT 

/CHECK FOR SIMULATOR 

/SIMULATOR CONTRDL WORD 

/LOAD THE SIMULATOR CONTROL WORD 

/CLEAR ALL 

/SET REAL TIME CLOCK INT ENA 
/CLEAR THE PROGRAM INTERRUPT FLAG 



/TURN THE INTERRUPT ON 

/CLEAR READER RUN DETECTOR FLIP-FLOP 

/SKIP ON READER RUN F/F SET 

/READER RUN IS SET AFTER A INITIALIZE 

/CLEAR RECEIVE FLAG AND SET READER RUN 

/SKIP ON READER RUN SET 

/KCC FAILED TO SET READER RUN 

/CLEAR ALL INCLUDING READER RUN F/F 

/SET REAL TIME CLOCK I NT ENA 

/TURN THE INTERRUPT SACK ON 

/CLEAR READER RUN DETECTOR F/F 

/SKIP ON READER RUN SET 

/INITIALIZE FAILED TO CLCA* READER RUN 
/CLEAR AC AND RECEIVE FLAG AND SET READER RUN 

/SKIP ON READER RUN DETECTOR F/F SET 

/KR8 FAILED TO SET READER RUN 

/CLEAR ALL INCLUDING READER RUN F/F 

/SET HEAL TIME CLOCK I NT ENA 

/TURN THE INTERRUPT ON 

/CLEAR READER RUN DETECTOR F/F 

/SKIP ON READER RUN F/F SET 

/INITIALIZE FAILED TO CLEAR READER RUN 
/GET THE PROGRAM INTERRUPT FLAG 

/PROGRAM INTERRUPTED 

/DONE OR REPEAT TEST IF SR2.1 



/•«•••••••••••••••«••••••••••.••.....••••.«.,„..,....,.,,..,, 

/THIS TEST IS ENTERED WHEN SIMULATOR IS SELECTED, 

CIVJZ.", £!^ KS TH * T REA0ER RgN H!LL CLEAR AFTER A WORD HAS SEEN TRANSMITTED 
/AND DATA LOOPS BACK INTO THE RECEIVE BUFFERS USING THE 20 MA CURRENT 
/LOOP FOR 110 BAUD TO 9630 BAUD, t-UMMEN T 
/ « , „ 



2633 4423 TEST39, LOOPPC 

2654 7771 .7 

2655 4436 SJMCHK 

2656 4000 4000 



/SETUP TEST COUNT AND TEST LOOP ADDRESS 
/SIMULATOR ITERATION COUNTER 
/CHECK FOR SIMULATOR 
/SIMULATOR CONTROL WORD 
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2657 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 
2700 
2701 
2702 
2703 
2704 
2705 
2736 
2707 
2710 
2711 
2712 

2776 
2777 



4437 


LOOSIM 




6007 


CAP 




4146 


RTCENA 




6001 


ION 




6035 


KJE 




6156 


CLRDET 




6157 


SKPRDR 




7610 


SKP 


CLA 


4427 


ERROR 




6032 


KCC 




6157 


SKPROR 




4427 


ERROR 




6046 


TLS 




4431 


TSFWAT 




4427 


ERROR 




6042 


TCF 




4432 


KSFHAT 




4427 


ERROR 




6156 


CLRDET 




6157 


SKPRDR 




7610 


SKP 


CLA 


4427 


ERROR 




4424 


DONLOP 




1021 


TAD 


OPtSEL 


0377 


AND 


(100 


7650 


SNA 


CLA 


5776' 


JMP 


TEST40 


5440 


PRGEND 





/LOAD THE SIMULATOR 

/CLEAR ALL FLAGS 

/SET REAL TIME CLOCK INT ENA 

/TURN THE INTERRUPT ON 

/DISABLE SLU INT ENABLE 

/CLEAR READER RUN 

/SKIP ON READER DETECTOR F/F SET 

/READER RUN FAILED TO CLEAR BY INIT 

/set reader run 

/skip on reader run detector f/f set 
/kcc failed to set reader run 
/transmit 

/Wait for the transmit flag 
/transmit flag failed to set 
/clear the transmit flag 
/wait for the receive flag 
/receive flag failed to set 
/clear reader run detector f/f 
/skip on reader run detector f/f set 

^St2?f. P rt2l J" RE.4DER RUN FAILED TO CLEAR READER RUN 

/REPEAT TEST FOR NEXT BAUD RATE 

/GET THE HARDWARE CONFIGURATION 

/MASK OUT THE KOR BIT 

/IS THE XOR SELECTED 

/NO.GO TO THE NEXT TEST 

/YES, END THE THE PROGRAM THEN 



3000 
0100 
3000 



IFDEF 0P13K <PAGE> 



/«••»••••»••»•». ..«. t . ,..,.,..»»,,»., »»,»„. ..,»»»..»..«,„,,,.„„„, 

/THIS TEST IS ENTERED WHEN SIMULATOR IS SELECTED, 

/TEST 40 » USES THE SIMULATOR TO TEST THE RTC FREQUENCY', 



3000 
3001 

3003 
3004 
3005 
3006 
3007 
3010 
3011 
3012 
3013 
3014 
3015 
3016 



4423 
7777 
4101 
3252 
3042 
4436 
4100 
4437 
1377 
3043 
6007 
4146 
6001 
6161 
6162 



TEST40J LOOPPC 
•1 

JMS 

SKPCHN 
OCA 

SIMCHK 

4100 

LODSIM 

TAD 

OCA 

CAF 

RTCENA 
ION 

STRFRQ 
SKPFRQ 



PATCH 
CLKFLG 



(.20 
CNT 



/SETUP TEST COUNT AND TEST LOOP ADDRESS 
/SIMULATOR ITERATION COUNTER 
/SETUP INTERRURT SKIP CHAIN 

/SET INTERRUPT TO IGNORE RTC 
/CHECK FOR SIMULATOR 
/CONTROL WORD FOR THE SIMULATOR 
/LOAD THE SIMULATOR CONTROL WORD 



/CLEAR ALL 

/SET REAL TIME CLOCK I NT ENA 

/TURN THE INTERRUPT ON 

/START A FREQUENCY COUNT 

/SKIP ON FREQUENCY COUNT IN PROGRESS 



/DKCa»*A OPTION TEST 1 MA I NDEC«08»DJDKA.B«L' «K 

3017 7610 SKP CLA 

3020 5216 JMP ,.2 

3021 6163 LQDFRQ 

3222 3243 DCA FRQCNT 

3023 1244 TAD RTCTRQ 

3024 1243 TAB FRUCNT 

3025 7450 SNA 

3026 5241 JMP RTIMOK 

3027 7001 IAC 

3030 7450 SNA 

3031 5241 JMP RTfMOK 

3032 2043 ISt CNT 

3033 52J7 JMP ,.4 

3034 4427 ERROR 

3035 4435 5WHCHK 

3036 7004 RAL 

3037 7710 SPA CLA 
3043 5446 JMP J TSTLOP 

3041 4424 RTIMOK, OONLOP 

3042 5245 JMP TEST41 

3043 E000 FR3CMT i 

3044 3062 RTCFRQ, .4716 
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✓FREQUENCY COUNT ENDED GO READ IT 
/WAIT FOR A FREQUENCY COUNT ENDED 
/LOAD THE FREQUENCY COUNT IN TO THE AC 
/SAVE THE FREQUENCY COUNT READ 
/GET THE NEGATIVE VALUE OF MAX TOLERANCE 
/GET THE COUNT READ 
/ARE THEY EQUAL? 
/YeS. CHECK FOR LOOP ON TEST 
/ADD 1 TO THE NUMBER 
/ARE THEY EQUAL? 
/YES. CHECK FOR LOOP ON TEST 

/GO BACK FOR NEXT ALLOWED NUMBER 
/RTC TIMING ERROR PRESS t'CONT" FOR 
/SIMULATOR CONTROL WORD 
/CHECK SRI TO LOOP ON ERROR 
/PUT IT IN SIT 

/REPEAT TEST 

/DONE OR REPEAT TEST JF SR2 = l 
/GO TO NEXT TEST 



/RTC FREQUENCY COUNT 2500 ♦ OR - 10 



/THIS TEST IS ENTERED WHEN SIMULATOR IS SELECTED, 
/TEST 41 - USES THE SIMULATOR TO CHECK THE TIMING OF THE SERIAL LINE UNIT 
/FROM 110 BAUD TO 9630 BAUD USING THE 20MA CURRENT LOOP 

»*•#• »*•«»««•»»»••• 

/SETUP TEST COUNT AND TEST LOOP ADDRESS 
/SIMULATOR ITERATION COUNTER 
/CHECK FOR THE SIMULATOR 
/SIMULATOR CONTROL WORD 
/LOAD THE SIMULATOR CONTROL WORD 



/CLEAR ALL FLAGS 

/SET REAL TJMME CLOCK INT ENA 

/CLEAR SLU INTERRUPT ENABLE 

/TURN THE INTERRUPT ON 

/START A FREQUENCY COUNT 

/SKIP ON FRQUENCY COUNT In PROGRESS 

/FREQUENCY COUNT ENDED GO READ IT 

/WAIT FOR FREQUENCY COUNT ENDED 

/LOAD FREQUENCY COUNT INTO AC 

/SAVE THE WORD READ 

/GET THE CONTROL "ORO 

/MASK OUT THE BAUD RATE 

/GET THE ADDRESS OF FREQUENCY TABLE 

/SAVE THE ADDRESS 

/POINTER ADDRESS TO FREQUENCY TABLE 



3045 


4423 


TEST41, 


LOOPPC 




3046 


7740 




• 40 




3047 


4436 




SJMCHK 




3053 


4000 




4000 




3051 


4437 




LOOSIM 




3052 


1377 




TAD 


(»20 


3053 


3043 




DCA 


CNT 


3054 


6007 




OAF 




3055 


4146 




RTCENA 




3056 


6035 




KIE 




3057 


6001 




I ON 




3060 


6161 




STRFRQ 




3061 


6162 




SKPFRQ 




3062 


7610 




SKP 


CLA 


3063 


5261 




JMP 


,"2 


3064 


6163 




LOOFRQ 




3065 


3243 




OCA 


FRQCNT 


3066 


1055 




TAD 


BONTWD 


3067 


2064 




AND 


K7 


3073 


1376 




TAD 


(FRQTAB 


3071 


3273 




DCA 


TABFRQ 


3072 


7410 




SKP 




3073 


7402 


TABFR3, 


HLT 





/DKCB«AA OPTION TEST 1 MA I NDEC«08-O JOKA.B^L 4K 

3074 1673 TAD I TABFRQ 

3075 1243 TAD FRQCNT 

3076 7450 SNA 

3077 5312 JM" SLUTOK 

3103 7001 IAC 
3131 7450 SNA 

3102 5312 JM» SLUTOK 

3133 2043 ISe CNT 

3104 5300 JMP ,-4 
3135 4427 ERROR 

3106 4435 SHHCHK 

3107 7034 RAL 

3113 7710 SPA CLA 

3111 5446 JMP I TSTLOP 

3112 4424 SLUTOK, OONLOP 

3113 5324 JMP TEST42 
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/GET THE NEG MAXIMUM FREQUENCY COUNT 

/GET THE COUNT READ 

/ARE THEY EQUAL 

/YES, SLU TIMING IS OK 

/ADD ONE TO THE NUMBER 

/ARE THEY EQUAL? 

/YES SLU TIMING IS Q< 

/BUMP SLU TIMING CHECK COUNTER 

/RETURN TO ADD A 1 TO THE NUMBER 

/SLU TIMING ERROR. »HESS "CONTINUE" FOR 

/SIMULATOR CONTROL WORD 

/CHECK FOR LODP ON ERROR 

/LOOP? 

/YES UO SAME BAUD RATE 

/DONE OR REPEAT TEST IF SR2*! 

/GO DO THE INTERACTION TEST 



/FREQUENCY COUNT TABLE FOR SLU SIMULATOR TIMING TEST (MAXIMUM COUNTS) 



3114 


2335 


FRQTAB, .5443 


nit 


BAUD 


a 


2841 


h 


3R 




18 


3115 


3723 


.4055 


/150 


BAUD 


8 


2083 


* 


OR 




13 


3116 


3723 


.4(155 


/im 


BAUD 


s 


2083 


* 


OR 




13 


3117 


3723 


.4055 


/MSI 


BAUD 




2083 




OR 


m 


13 


3123 


5744 


-2034 


A200 


BAUD 




1042 


+ 


OR 




10 


3121 


6755 


.1023 


Z2403 


BAUD 


5 


0521 


* 


OR 




13 


3122 


7362 


.0416 


/4S03 


BAUD 


£ 


0262 


* 


OR 




12 


3123 


7564 


-021« 


/»603 


BAUD 




0133 




OR 




13 



/TEST 42 . IS AN INTERACTION TEST, THE TEST CHECKS THAT THE RTC, THE 
/SLU AND THE 12 BIT PARALLEL I/O CAN RUN TOGETHER, THE AO AND LINK 
/IS LOADED HITH SOME RANDOM DATA BEFORE THE INTERRUPT IS TURNED ON', 
/THE PROGRAM CHECKS THAT THE AC AND LINK DON'T CHANGE AN) THAT DATA 
/CAN BE. TRANSMITTED AND READ BACK CORRECTLY, 



31,24 442.5 

3125 7777 

3126 4436 

3127 4017 
3130 4437 



3131 6032 

3132 4470 

3133 6007 

3134 4146 

3135 4104 
3156 4200 



TEST43, U05PPC 
•1 

SJMCHK 

4017 

LODSIM 



1 or 

JMS I DELAYR 
CAF 

RTCENA 

JMS PATCH 
INTSKP 



/SETUP TFST COUNT AND SCOPE LOOPING ADDRESS 

/SIMULATOR ITERATION COUNTER 

/CHECK TO SEE IF SIMULATOR IS SELECTED 

/CONTROL WORT FOR THE SIMULATOR 

/LOAD SIMULATOR IF SELECTED ALSO SET SCOPE 

/LOOP = THIS ADDRESS IF SIMULATOR SELECTED 

/OTHERWISE SCOPE LOOP IS THIS ADDRESS H 

/TURN THE INTERRUPT OFF 

/DELAY FOR APPROXIMATELT 200MS TO 

/ALLOW FLAGS TO SETTLE 

/CLEAR ALL FLAGS BUT SET SLU INT ENA 

/SET REAL TIME CLOCK INT ENA 

/SETUP INTERRUPT SERVICE 
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313? 


3071 


OCA 


EXPACD 


/CLEAR THE EXPECTEO AC DATA 


3140 


3072 


OCA 


LINK 


/CLEAH THE LINK BIT 


3141 


3053 


OCA 


SLUXMT 


/SET INITIAL AC DATA TO 8 


3142 


3051 


OCA 


PIOXMT 


/SET PIO INITIAL OATA TO 


3143 


7240 


CLA 


CMA 




3144 


3073 


OCA 


XMTFLG 


/SET SLU XMT FLAG TO INACTIVE 


3145 


7240 


CLA 


CMA 


3146 


3074 


OCA 


RECFLG 


/SET SLU P.5V FLAG TO INACTIVE 


3147 


7240 


CIA 


CMA 




3150 


3075 


OCA 


RTCFLG 


/SET HTC FLAG TO INACTIVE 


3151 


1066 


TAO 


M10 




3152 


3076 


OCA 


PNO I NT 


/SETUP A COUNT FOR NO INT'S ON P I/O 


3153 


1367 


TAB 


M40 


/SET UEVICE INACTIVE COUNTER TO .40 


3154 


3077 


OCA 


INACTV 


/ 


3155 


7352 


CIA CLL 


CMA RTR 


/SETUP TEST COUNT 


3156 


3047 


DCA 


TSTCNT 


/SAVE IT 


3157 


7301 


CU* CLL 


IAC 


/SET DATA BIT 11 


3160 


6135 


CUE 




/SET HTC INT ENA 


3161 


7200 


CLA 






3162 


6575 


DBSE 




/SET 12 BIT PARALLEL I/O INT ENA 


3163 


6046 


TLS 




/LOAD AND TRANSMIT ON SLU 


3164 


6574 


OBTQ 




/TRANSMIT ALL 0'S ON P I/O 


3165 


6001 


1 ON 




/TURN THE INTERRUPT ON 


3166 


5366 


JMP 


1 


/GO BABY GO I J J | 



3167 7740 M40, .40 

3176 3114 

3177 7760 

3200 PAG 



/ROUTINE TO SETUP * 

3200 0000 PCLOOPi 

3201 7340 CLA CLL CMA 

3202 1200 TAD PCLOOP 

3203 3045 OCA TEST 

3204 1600 TAO I PCLOOP 

3205 3067 DCA SIMCNT 

3206 7240 - CLA CMA 

3207 3050 DCA SAVCNT 

3210 1050 TAD SAVCNT 

3211 3047 DCA TSTCNT 

3212 2200 ISI PCLOOP 

3213 9600 JMP I PCLOOP 



OF PASSES/TEST aNU TO STORE THE 



RETURN AOORESS FOR SCOPE LOOPING 
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3214 


•0?0 


SIMLOOi 







3215 


1055 




TAD 


CONTWD 


3216 


6191 




LOADSM 


3217 


7300 




CLA 


CLL 


3220 


9614 




JMP 


I S1HLOD 


3221 


?000 


LOPOON, 







3222 


4623 




JMS 


I ,*1 


3223 


4626 




DONONE 


3284 


1021 




TAD 


OP1SEL 


3225 


0057 




AND 


K200 


3226 


7650 




SNA 


CLA 


3227 


5237 




JMP 


LOOPSW 


3230 


2067 




IS2 


S[MCNT 


3231 


7610 




SKP 


CLA 


3232 


5237 




JMP 


LOOPSW 


3233 


2055 




IS2 


CONTWD 


3234 


1090 




TAD 


SAVCNT 


3235 


3047 




DCA 


TSTCNT 


3236 


5446 




JMP 


I TSTLOP 


3237 


4435 


LOOPSW, 


SHHCHK 


3240 


7006 




"TL 




3241 


7700 




SM» 


CLA 


3242 


5621 




JMP 


I LOPDON 


3243 


5445 




JMP 


I TEST 


3244 


6102 


SIMINT, 


SPL 




3245 


7410 




SKP 




3246 


5777' 




JMP 


POWFAL 


3247 


3251 




OCA 


AC 


3253 


5317 




JMP 


FLGCK5 


3251 


?000 


ACi 








/GET THE CONTROL WORp 

/LOAD THE SIMULATOR CONTROL WORD 



/GO CHECK TO SEE J P XOR ERROR 
/IS THE SIMULATOR SELECTED 



/SIMULATOR NOT SELECTEO, CHECK TEST LOOP SWITCH 
/ADD A 1 TO THE CONTROL WORp? 

/NO, CHECK TEST LOOP SWITCH 

/ADD 1 TO THE CONTROL WORD FOR BAUD RATES 

/GET THE TEST COUNT 

/RESTORE IT FUR A NEW PASS FOR A DIFFERENT BAUD 
/RETURN FOR NEW BAUD RATE 
/CHECK FOR 3R2»l 

/LOOP? 

/NO. GO TO NEXT TEST 
/YES.LOOP ON THIS TEST 



/SKIP ON POWER LOW 

/POWER GOING OOWN . GO SAVE EVERYTHING 

/SAVE THE AC 

/RETURN TO THE PROGRAM 



3252 


6102 


SKPCHN, SPL 




/SKIP ON Power 1.0W 


3253 


7410 


SKP 






3254 


5777i 


JMP 


PQWFAL 


/POWER GOING UOWN SAVE EVERYTHING 


3255 


3251 


DCA 


AC 


/SAVE THE AC 


3256 


1042 


TAD 


CLKFLG 


/WERE WE EXPECTING A CLOCK INTERRUPT? 


3257 


7650 


SNA 


CLA 




326J 


4776' 


JMS 


CH«ACT 


/GO CHECK FOP THE AC LINE 


3261 


6137 


CLSK 


/YES . SKIP ON REAL TIME CLOCK FLAG 


3262 


7410 


SKP 






3263 


5303 


JMP 


FLGCK1 


/GO CHECK THE OTHER FLAGS 


3264 


1134 


TAO 


ACTFLG 


/GET THE ACT FLAG 


3265 


7440 


SZA 




/DID THE PROGRAM GO TO THE PROM ? 


3266 


5276 


JMP 


ACTCK2 


/YES, CHECK PARALLEL I/O DATA ACCEPTED 


3267 


4775' 


JMS 


INTXOR 


/GO CHECK FOR THE XQR BIT AND. TSP FLAG 


3270 


6031 


KSF 




/WAS IT A RECEIVE FLAG? 


3271 


7410 


SKP 




/YES . GO CHECK THE OTHER FLAGS 


3272 


5311 


JMP 


FLGCK3 


3273 


6571 


DBSK 


/WAS THE DATA READY FLAG SET? 


3274 


7410 


SKP 
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3275 
3276 
3277 
3303 
3301 
3302 
3303 
3304 
3305 
3306 
3307 
3310 
3311 
3312 
3313 
3314 
3315 
3316 
3317 
3323 
3321 
3322 
3323 
3324 
3325 



5314 
6570 
7640 
'315 
4427 
5315 
6041 

74ia 

4427 

6031 

7410 

4427 

6571 

7410 

4427 

6570 

7610 

4427 

3134 

7240 

3041 

4774' 

3326 

1251 

5726 



ACTCK2, 

PLSOK1, 
FLSCK2, 
FLGCK3, 
FLGCK4, 
FLGCK5, 



JMP FLSCK4 

OBST 

SHA CUA 

JHP FLGCK5.2 

ERROR 

JMP FLGCK5.2 

TSF 

SKP 

ERROR 

KSF 

SKP 

ERROR 

DSSK 

SKP 

ERROR 

DBST 

SKP CLA 

ERROR 

DC* ACTFLG 
CLA CHA 
OCA I NTFLG 
JMS RETURN 
INTRET 
TAO AC 

JMP I INTRET 



/YES . CHECK DATA ACCEPTEO FLAG 

/WAS DATA ACCEPTED SET. IP SO CLEAR IT 

/YES, THE FLAG SHOULD BE CLEAR MOW 

/ILLEGAL INTERRUPT • 

/RETURN 

/SKIP ON XMIT FLAG 

/XMIT FLAG SET 

/SKIP ON RECEIVE PUG 

/RECEIVE FLAG SET 

/SKIP ON P I/O DATA READY 

/DATA READY FLAG SET 
/SKIP ON DATA ACCEPTED 

/DATA ACCEPTED FLAG SET 
/CLEAR THE ACT FLAG 

/SET INTERRUPT FLAG 



3326 0000 



I 'JTRET 1 B 



/ROUTINE TO WAIT FOR SERIAL LINE UNITS XM[T FLAG 



3327 
3330 
3331 
3332 
3333 
3334 
3335 
3336 
3337 
3340 



0000 

7300 

6035 

1150 

3044 

3043 

4773' 

4362 

3327 

5727 



3 




CLA 


CLL 


KJE 




TAO 


K7710 


OCA 


CNTl 


OCA 


CNT 


JMS 


TSPXOR 


JMS 


ADDTIM 


ISH 


WATTSF 


JMP I 


WATTSF 



3341 5000 

3342 7300 

3343 1150 

3344 3044 

3345 3043 

3346 6031 

3347 4362 

3350 2341 

3351 574i 



/CLEAR INTERRUPT ENABLE P/F 



/GO CHECK FOR XOR AND XM[T FLAG 
/GO ADD ONE TO THE COUNTER 

/RETURN TO THE PR0GR4M.GST THE FLAG 
/ROUTINE TO WAIT FOR THE SERIAL LINE UNIT RECEJVE FLAG 
"ATKSF, 

CLL 
K77 W 
CNTl 
CNT 

/SKI" ON SLU RECEIVE FLAG 
/GO AUO A ONE TO THE COUNTER 



CLA 
TAD 
OCA 
OCA 
KSr 
JMS 
ISH 
JMP 



ADDTIM 
UATKSF 
I WATKSF 



/RETURN TO THE PR0GHAM.G8T THE FLAG 
/ROUTINE TO WAIT FOR THE REAL TIME CLOCK FLAG 
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3352 
3353 
3354 
3355 
3356 
3357 
3360 
3361 



7240 
3044 
3043 
4577 
4362 
2352 
5752 



WTCLSK, 



CL* 
OCA 
OCA 
JMS 
JMS 
ISZ 
JMP 



CMA 

CNTl 

CNT 

ECLKXOR 
ADOTIM 
WTCLSK 
WTCLSK 



/GO CHECK FOR THE REAL TIME CLOCK FLAG 
/GO 400 ONE TO THE COUNTER 

/RETURN TO THE PROGRAM. GOT THE FLAG 



/ROUTINE TO WAIT FOR THE FLAG 

3362 1000 AODTIMi 

3363 3043 ISH CNT 

3364 7610 SKP CLA 

3365 3044 ISH CNTl 

3366 7J46 CLA CLL CHA RTL 

3367 7001 uc 

3378 1362 TAD ADDTIM 

3371 3362 OCA ADOTIM 

3372 5762 JMP I AODTIM 



3373 4637 

3374 3420 

3375 4714 

3376 3544 

3377 3441 
3400 



3400 
3401 
3402 
3433 
34f!4 
3405 
34?6 



6160 
4435 
7036 
7004 
4605 
4600 
5777' 



3407 "000 

3413 7200 

3411 1021 

3412 7700 

3413 5216 

3414 7604 

3415 5607 

3416 1020 

3417 5637 



/THIS IS THE END OF j PROGRAM PASS', IF SR3.1 HALT, IF NOT START PROGRAM OVER 



E'IDPAS, 



SIMCLR 
SWHCHK 
RTL 
RAL 

JMS I 
PASSED 
JMP 



?200 



/CLEAR THE SIMULATOR 
/GO GET SWITCH REGISTER 



/START PROGRAM OVER 



/CHECK TO SEE [ F FRONT PANEL IS AVARABE TO DO EITHER A TAD SWITCH OR A LAS COMMAND 



CHKSWH, 





CLA 

TAD 0P1SEL 
SMA CLA 
JMP ,+3 
LAS 

JMP I CHKSWH 
TAD SWITCH 
JMP I CHKSWH 



✓THIS ROUTINE SETS UP A RETURN ADDRESS FOR INTERRUPT RETURNS FROM ANOTHER FIELD 
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3483 0000 



RETURN, 



3421 


6201 




cor 




342! 


1636 




TAD 1 


K0 


3423 


3237 




DC* 


RETAOO 


3424 


6224 




"If 




3425 


1132 




T AO 


KCDF 


3426 


3227 




DCA 


,*t 


3427 


7482 




HLT/CDF 




3438 


1620 




TAD I 


RETURN 


3431 


3240 




DC» 


SAVLOC 


3432 


2220 




IS* 


RETURN 


3433 


1237 




TAD 


RETAOO 


3434 


3640 




DCA I 


SAVLOC 


3435 


5620 




JMP I 


RETURN 


3436 


8000 


K0| 







3437 


mm 


RETAOO, 







3440 


=!000 


SAVLOC, 








/CHANGE DATA FIELD TO FIELD ' 
/SET THE INTERRUPT Pe 
/SAVE IT 

/READ THE PROGRAM INSTRUCTION FIELD 
/ADD A CDF INSTRUCTION TO IT 
/SAVE IT IN THE NEXT LOCATION 
/RETURN TO THE PROGRAM DATA FIELD 
/GET THE INTERRUPT RETURN LOCATION 
/SAVE IT 



3441 
3442 
3443 
3444 



3447 
3450 
3451 
3452 



3455 
3456 
3457 
346? 
3461 



7200 
4201 
1265 
3636 



3445 1045 

3446 3666 



1267 
3670 
1133 
3671 



3453 1272 

3454 3673 



6004 
3674 
6244 
6103 
6102 



3462 7610 

3463 5261 

3464 5445 



/POWER FAIL ROUTINE, THE PROGRAM HILL "0 IT'S OWN AUTORESTART 
/AT THE BEGINNING OF THE TEST THAT IT WAS EXECUTING UNLESS ALL POWER 
/WENT AWAT, THEN THE POWER FAIL AUTORESTART OPTION WOULD TRY TO 00 
/A RESTART IF IT WAS SELECTED', 

POWFALi OL* Cl» 

CDF 00 

TAD KJMP7 

OCA I K0 

TAD TEST 

DCA I KTEST 

TAD FLGHST 

DCA I C7 

TAD KRTF 

DCA ! K10 

TAD KJMPRT 

DCA I K H 
GTF 

DCA I Kit 

RMF 

CAL 

SPL 

SKP CLA 

JMP ,.2 

JMP I TEST 



3465 


5007 


K JMP7 i 


JMP 7 


3466 


8045 


KTEST, 


TEST 


3467 


1012 


FLGRST, 


TAD 12 


3470 


3007 


07, 


7 


3471 


3010 


K10, 


10 


3472 


5445 


KJMPRT, 


JMP I TEST 


3473 


8011 


Kll, 


11 


3474 


^012 


Mi 


12 



/DKC8.AA OPTION TEST l MA I NDEC.08.DJDKA.B-L 4K PAL10 V142A 16.JUN.75 
/LOSIC ERROR ROUTINE - RESTART TEST IF SR1U 



3475 ,"000 

3476 4326 

3477 4435 
3503 7710 
3501 5307 
3532 7240 

3503 1275 

3504 7402 

3505 4314 

3506 7402 

3507 4435 

3510 7004 

3511 7700 

3512 5675 

3513 9446 

3514 3000 

3515 7300 

3516 1021 

3517 ?057 

3520 7650 

3521 5324 

3522 1055 

3523 5714 

3524 2314 

3525 5714 



AERROR, 



AERSWH, 



JMS ACTCH 
SWHCHK 

SPA CLA 

JMP AERSWH 

CLA CMA 

TAD AERROR 
HLT 

JMS SIMWRD 
HLT 

SWHCHK 
PAL 

SMA CLA 

JMP I AERROR 

JMP I TSTLOP 



SIMWRO, 



CLA CLL 

TAD 0P1SEL 

AND K200 

5NA CLA 

JMP ,+3 

TAD CONTWD 

JMP I SIMWRO 

IS0 SIMHRD 

JMP I SIMWRD 



/GO CHECK TO SEE JF RUNNING ON ACT LINE 
/CHECK SR0 TO INHIBIT ERROR HALT 

/SR0=1 CHECK LOOP ON LOGIC ERROR 



/AC • ADDRESS WHERE ERROR WAS DETECTED 
/WAS THE SIMULATOR SELECTED 
/AC'SIMULATQR CONTROL WORD 
/CHECK SRm TO LOOP ON ERROR 



/RETURN WITHOUT LOOPING ON TEST 

/SCOPE LOOP GU BACK TO START OF TEST SECTION 



/ROUTINE TO EXIT TO PROM ON AN ERROR jF RUNNING ON THE ACT LINE 



3526 
3527 
3530 
3531 
3532 
3533 
3534 
3535 
3536 
3537 
3540 
3541 
3542 



0000 

7300 
1022 
7700 
5726 
6002 
7344 
1326 
3343 
7240 
1743 
6272 
5500 



ACTCHK, 





CLA 
TAD 

SM» 
JMP 

i or 

CLA CLL CMA RAL 



1 



CLL 

0P2SEL 
CLA 

ACTCHK 



TAD 
OCA 
CLA 
TAO 
CIF 
JMP 



ACTCHK 

ERRPC 

CMA 

ERRPC 

70 

BAOPAS 



/GET THE HARDWARE CONTROL WORD 

/IS THE PROGRAM RUNNING ON THE AST LINE? 

/NO, RETURN Tl) ERROR ROUTINE 

/TURN THE INTERRUPT OFF 



/GET THE LOCATION WHERE THE ERROR WAS DETECTED 
/CHANGE INSTRUCTION FIELD TO FIELD 7 
/GO TO THE PROM 



3543 (!000 ERRPC , B 



/DKC6.AA OPTION TEST 1 MAINOEC.0S.OJDKA.B.L «K PAL10 V14ZA 16.JUN-75 



8 S 58 



PACE 2.44 



3544 
3545 
3546 
3547 
3S53 
3551 
3552 
3553 
3554 
3555 
3556 
3557 
3563 
3561 
3562 
3563 
3564 
3565 
3566 
3567 
357? 
3571 
3572 
3573 
3574 
3575 



360Z 
3601 
3602 
3603 
3604 
3685 
3606 
3607 
3610 
3611 
3612 
3613 
3614 
3615 
3616 
3617 
3620 
3621 
3622 
3623 



6137 

7410 

5352 
2344 
5744 
6136 
1022 
7710 
5365 
5350 
4220 
3564 
1776' 
6001 
5764 

*%m 

2102 
5357 
1103 
3102 
6272 
4501 
7240 
3134 
5357 



3576 3251 

3577 ?200 
3600 



6037 
4146 
6001 
4575 
1051 
6574 
7200 
6571 
4427 
2041 
4427 
3041 
6572 
3052 
6571 
4427 
6573 
6001 



CHKACT, 

Ci.SK 

SKP 

JHP 

ISZ 

JMP I 
CIKSET, CLCL 
TAD 
SPA 
JMP 
JMP 
JMS 

ACTRET 
TAO 
ION 
JMP 
ACTRET i 
ONACTLi ISZ 
JMP 
TAO 
OCA 
OIF 
JMS 
CLA 
OCA 
JMP 



/WAS THE CLOCK FLAG SET 
/NO. RETURN TO ! NT SERVICE ROUTINE 
CLKSET /YES. CLEAR THE FLAG 
CHKACT /ADD 1 TO THE INCOMING PC 
CHKACT /RETURN TO SKIP CHAIN 
/CLEAR THE CLOCK FLAG 
OPSSEL /GET THE ACT LINE BIT 
CLA /IS THE PROGRAM RUNNING ON ACT LINE 

ONACTL /YES, CHECK FOR # OF CLOCK TICKS 
CHKACT+4/RETURN TO INTERRUPT ROUTINE 
RETURN /NO, RETURN TO THE PROGRAM 



AC 



I ACTRET 



/TURN THE INTERRUPT ON 
/RETURN TO THE PROGRAM 

ACTCNT /130 CLOCK TICKS YET? 
CLKSEU5/NO RETURN TO PROGRAM 



M144 
ACTCNT 

70 

GOODPS 
CMA 

ACTFLG 



/RESET ACT TIME COUNTER 
/SAVE THE NUMBER 
/CHANGE INSTRUCTION FIELD TO 7 
/SIGNAL PROM THAT PROGRAM STILLS PAS 

/SET THE ACT LINE FLAG TO ONES 



CLKSET*5/RETURN TQ THE PROGRAM 



/ROUTINE FOR TRANSMITTING, READING A NO COMPARING DATA FOR PARALLEL I/O 



OATPIO, 



CAF 

RTCENA 

ION 

OBSE 

TAD PIOXMT 

OBTO 

CLA 

OBSK 

ERROR 

IS? INTFLG 
ERROR 

OCA INTFLG 
DBRD 

OCA PJOREC 

OBSK 

ERROR 

OBCF 

ION 

NOP 



/CLEAR ALL 

/SET REAL T I ME CLOCK INT ENA 
/TURN THE INTERRUPT ON 
/SET PARALLEL I/O INT ENA 

/GET THE WORD To BE LOADED INTO PARALLEL I/O 
/LOAD AND TRANSMIT THE WORD 

/SKIP ON DATA READY 

/ERROR, DATA HEADY FLAG FAILED TO SET SY OBTD 
/GET PROGRAM INTERRUPT FLAG 

/PROGRAM FAILED TO INTERRUPT WITH INT ENA * FLAG SET 

/CLEAR PROGRAM INTERRUPT FLAG 

/READ THE 12 BIT PARALLEL I/O SUFFER 

/SAVE THE WORU READ 

/SKIP ON DATA READY FLAG 

/DSRD CLEARED DATA READY FLAG 

/CLEAR DATA READY FLAG 

/TURN INTERRUPT BACK ON 

/SHOULD INTERRUPT HERE FOR DATA ACCEPT FLAG 



/DKCS.AA OPTION TEST ], MAINDEO-0B.DJDKA.B-L 4K 



3624 


6570 


DBST 


3625 


7610 


SKP CLA 


3626 


4427 


ERROR 


3627 


2041 


IS! INTFLG 


3630 


4427 


ERROR 


3631 


6001 


ION 


3632 


7000 


NOP 


3633 


1041 


TAO INTFLG 


3634 


7640 


SZA CLA 


3635 


4457 


ERROR 


3616 


1051 


TAD PIOXMT 


3637 


7041 


1 A 


3640 


1052 


TAO PIOREC 


3641 


7640 


SZA CLA 


3642 


5600 


JMP I DATPIO 


3643 


6007 


CAF 


3644 


4146 


RTCENA 


3645 


6001 


ION 


3646 


6572 


DBRD 


3647 


7640 


SZA OLA 


3650 


4427 


ERROR 


3651 


2200 


ISZ OATPIO 


3652 


5600 


JMP I DATPIO 



PALlB VJ.42A 16.JUN.75 8158 PAGE 2-45 

/SKIP ON DATA ACCEPT 

/DATA ACCEPT FAILED TO CLEAR IN INTERRUPT ROUTINE 
/CHECK TO SEE IT IT INTERRUPTED 
/DATA ACEPT FLAG FAILED TO INTERRUPT 
/TURN THE INTERRUPT BACK ON 

/GET PROGRAM INTERRUPT FLAG 
/DID IT INTERRUPT? 

/PROGRAM INTERRUPTED WITHOUT DATA READY SET 
/GET THE WORD TRANSMITTED 

/GET THE WORD READ 
/ARE THEY EQUAL7 

/DATA ERROR RETURN TO REPORT ERROR 
/CLEAR ALL FLAGS AND P I/O BUFFER 

/TURN THE INTERRUPT ON 

/REAO THE 12 SIT P I/O BUFFER 

/CAF FAILED TO CLEAR THE 12 BIT DATA BUFFER 
/BUMP RETURN ADDRESS POINTER BY 1 
/RETURN TO TEST 



/ROUTINE FOR TRANSMITTING, &EADJNG AND COMPARING DATA FOR SLU 



3653 


t'000 


DAT5LU, 1 




3654 


6007 


CAF 




3655 


4146 


RTCENA 




3656 


6001 


ION 




3657 


3041 


OCA 


INTFLG 


3660 


1053 


TAD 


SLUXMT 


3661 


6046 


TLS 




3662 


4431 


TSFWAT 




3663 


4427 


ERROR 




3664 


2041 


ISZ 


INTFLG 


3665 


4427 


ERROR 


3666 


6042 


TCF 




3667 


6001 


ION 




3670 


4432 


KSFWAT 




3671 


4427 


ERROR 




3672 


J041 


IS? 


INTFLG 


3673 


4427 


ERROR 


3674 


6036 


KRB 




3675 


3054 


OCA 


SLUREC 


3676 


6001 


ION 




3677 


1041 


TAO 


INTFLG 


3700 


7640 


SZA 


CLA 


3701 


4427 


ERROR 




3702 


1053 


TAD 


SLUXMT 


3703 


7041 


CJA 




3704 


1054 


TAO 


SLUREC 


3705 


7640 


SZA 


CLA 


3706 


5653 


JMP I 


OATSLU 


3707 


2253 


ISZ 


DATSLU 



/clear all flags but set jnt ena on slu 

/set real time clock int ena 

/turn the interrupt on 

/clear the program interrupt flag 

/get the word to be transmitted 

/load and transmit it and clear the flag 

/wait for the transmit flag 

/xmit flag failed to set 

/did the program interrupt? 

/program failed to interrupt 

/clear the x«jt flag 

/turn the interrupt back on 

/wait for the receive flag to set 

/receive flag failed to set 

/did the receive flag cause a interrupt 

/receive flag failed to cause a tnterrupt 

/clear the ac and rcv flag and read buffer 

/save the woro reao back 

/turn the interrupt back on 

/check that krb cleared the rcv flag 

/krb failed to clear rcv flag or interrupted 
/get the woro transmitted 

/get the word read back 

/DATA ERROR. RETURN TO REPORT THE ERROR 
/BUMP RETURN ADDRESS POINTER BY ONE 



/"DKCS-*A OPTION TEST 1 MA I NDE5.0B.ojdka.b-L P AL10 V142A 16.JUN.75 l,B8 PASE 2"4« 

3710 5653 JMP | DATSLU /RETURN TO TEST 



3711 
3712 
3713 
3714 
3715 
3716 
3717 
3720 
3721 
3722 
3753 
3724 
3725 
3726 
3727 
3733 
3731 
3732 
3733 



E>000 

4777' 

4435 

7710 

5327 

7240 

1311 

7402 

7200 

1051 

7402 

7200 

1052 

7402 

4435 

7004 

7700 

5711 

5446 



/DATA ERROR ROUTINE POR PARALLEL I/O 



PIOSWH, 





JMS ACTO 
SWHCHK 
SPA CLA 
JMP PIOSWH 
CLA CMA 
TAO DERPIO 
HLT 
CLA 

TAO PIOXMT 

HLT 

CLA 

TAO PIDREC 
HLT 

SWHCHK 
RAL 

SMA CLA 

JMP I DERPIO 

JMP I TSTLOP 



/CHECK TO SEE If RUNNING ON ACT LINE 
/CHECK SR0 TO INHIBIT ERROR HALT 
/IS SR0 SET? 

/YES, GO CHECK SRI TO LOOP ON ERROR 



/AC = ADDRESS WHERE ERROR WAS DETECTED 

/GET THE WORD TRANSMITTED 
/AC = THE GOOD WORD 

/GET THE WORn READ 

/AC = THE RAO WORD - WORO RtAO 

/LOOP ON DATA ERROR IF SR1 = 1 

/LOOP? 

/NO i RETURN TO TEST 

/RETURN AND no SAME PATTERN(S) 



/DATA ERROR ROUTINE FOR SERIAL LINE UNIT 



3734 


3000 


DERSLU, 









3735 


4777' 




JMS 


ACTCHK 


/CHECK TO SEE IF RUNNING ON THE ACT 


3736 


4435 




SWHCHK 




/CHECK SR0>1 TO INHIBIT ERROR HALT 


3737 


7710 




SPA 


CLA 


3740 


5354 




JMP 


SLUSWH 


/GO CHECK SR1U TO LOOP ON ERROR 


3741 


7240 




CLA 


CMA 




3742 


1334 




TAD 


DERSLU 


/ 


3743 


7402 




HLT 




/ACADRESS WHERE ERROR WAS DETECTED 


3744 


7200 




CL* 




3745 


1053 




TAO 


SLUXMT 


/GET THE WORO TRANSMITTED 


3746 


7402 




HLT 




/AOGOOD WORD. THE WORD TRANSMITTED 


3747 


7200 




CLA 




3753 


1054 




TAO 


SLUREC 


/GET THE WORD READ 


3751 


7402 




HLT 




/AC«THE RAO WORD. THE WORD READ 


3752 


4776' 




JMS 


SIMWRD 


/WAS THE SIMULATOR SELECTED 


3753 


7402 




«LT 




/ACsTHE SIMULATOR CONTROL' «ORD 


3754 


4435 


SLUSWH, 


SWHCHK 




/LOOP ON DATA ERROR IF SRlPl 


3755 


7004 




RAL 






3756 


7700 




SMA 


CLA 


/LOOP? 


3757 


5734 




JMP I 


OERSLU 


/NO, RETURN TO TEST 


3760 


5446 




JMP I 


TSTLOP 





3761 1-000 CHKSIM, 



/DKC8.AA OPTION TEST i MA I NOEC.08.DJDKA.B.L 4K PAL10 «142A 16.JUN.75 



!|58 



PAGE 2.47 



3762 1021 

3763 3057 

3764 7650 

3765 5371 

3766 1761 

3767 3055 
3773 7410 

3771 2361 

3772 2361 

3773 1361 

3774 3046 

3775 5761 



TAD 0P1SEL 
AND K230 
SNA CLA 
JMP ,+4 
TAD I CHKSIM 
OCA CONTWO 
SKP 

151 CHKSIM 

152 CHKSIM 
TAD CHKSIM 
DCA TSTLOP 
JMP I CHKSIM 



/CHECK FOR SIMULATOR 



/NO 

/GET THE CONTROL WORD 
/SAVE IT 



3776 3514 

3777 3526 



4033 6160 

4001 4104 

4002 4015 

4003 1377 

4004 3047 

4005 6007 

4006 6137 

4007 5206 

4010 6136 

4011 7301 

4012 6135 

4013 6001 

4014 5214 

4015 6136 

4016 7300 

4017 2047 
4055 5£15 

4021 7602 

4022 5200 



/REAL TJHE CLOCK TIMING TEST 



RTCTIM, SIMCLR 
JMS 

RTCINT 

TAD 

DCA 

CAP 

CLSK 

JMP 

CLCL 

CLA CLL 

CLLE 

ION 

JMP 

RTCINT, CLCL 
CLA 
ISZ 
JMP 
HLT 
JMP 



PATCH 



(.5667 

TSTCNT 



IAS 



CLL 

TSTCNT 
RTCINT: 
CLA 

RTCTIM 



/SETUP INTERRUPT SERVICE 

/SET UP A COUNT FOR 2999 CLOCK TICKS 

/SAVE CLOCK TICK COUNTER 

/CLEAR ALL FLAGS 

/WAIT FOR THE FIRST CLOCK FLAG 

/CLEAR THE CLOCK FLAG 

/LOAD CLOCK INTERRUPT ENABE 
/TURN THE INTERRUPT ON 

/CLEAR THE CLOCK FLAG 
/CLEAR THE AC AND LINK 
/PONE VET ? 
2 /"RETURN TO WAIT TO" NEXT FLA5 

/WAS IT 30 SECONOS 
/03 TEST OVER OR DO ANOTHER TEST 



/«•.»•»«.«*••»*••.•••»••«•«•••«.••*•••••••.»•»#•»*#•»»•«.•#.#•««•»«••• 

/SERIAL LINE UNIT TIMING TEST 



4023 6160 

4024 4104 

4025 4071 

4026 7402 



SLUTIM, SIMCLR 

JMS PATCH 

SLUINT 

HLT 



/SETUP INTERRUPT SERVICE 

/SET THE SR IF SELECTED OR LOCATION 20 
/TO THE BAUD RATE AND * OF STOP SITS 
/TO BE TESTED", 



/DKCS»»* OPTION T[ST 1 MAINOEC-0S-DJOKA-8-L 4K PA110 «l48* 16-JUN-75 SI58 PAGE 2.«8 



4027 


4435 




SWHCHK 




/GO GET LOCATION 20 OR THE SP 


4030 


0576 




AND 


(17 


/MASK OUT THE BAUD RATE AND STOP BIT 


4031 


3304 




DCA 


SAUDWD 


/SAVE THE BAUD RATE AND STOP BIT 


4032 


1304 




TAD 


BAUDWD 


/GET THE WORD 


4033 


3064 




AND 


K7 


/Mask out the baud rate 


4034 


3305 




DCA 


BAUDRT 


/SAVE IT 


4035 


1304 




TAD 


BAUDWD 


/CHECK FOR THE NUMBER OF STOP BITS 


4036 


0375 




AND 


(10 




4037 


7640 




SZA 


CLA 


/i OR 2 STOP BITS 


404? 


7326 




CLA CLL 


CML RTL 


/STOP BITS EQUAL 2 


4041 


33»6 




DCA 


STPBIT 


/SAVE THE STOP BITS 


4042 


1305 




TAD 


BAUDRT 


/GET THE BAUD RATE (0 • 7) 


4043 


1374 




TAD 


( BAUDTB 


/GET THE ADDRESS OF THE BAUD RATE TABLE 


4044 


3307 




DCA 


BDPNTR 


/SAVE THE TABLE POINTER ADDRESS 


4045 


1707 




TAD 1 


BDPNTR 


/GET THE ADDRESS OF THE CONSTANTS 


4046 


1306 




TAD 


STPBIT 


/ADD FOR 1 SB OR 2 FOR 2 SB 


4047 


3307 




DCA 


BDPNTR 


/SAVE THE POINTER To THE CONSTANTS 


4050 


1307 


SLUSTR, 


TAD 


BDPNTR 


/ACTUAL TEST STARTS HERE 


4051 


3047 




DCA 


TSTCNT 


/SAVE THE POINTER IN TEST COUNT 


4052 


1447 




TAD I 


TSTCNT 


/GET THE FIRST CONSTANT 


4053 


3043 




DCA 


CNT 


/SAVE IT 


4054 


2047 




ISl 


TSTCNT 


/ADO 1 TO THE WORKING POINTE* 


4055 


1447 




TAD I 


TSTCNT 


/GET THE SECOND CONSTANT 


4056 


3044 




DCA 


CNTl 


/DCA CNTl 


4057 


6007 




CAT 




/CLEAK ALL FLAGS 


4060 


6046 




TLS 




/LOAD AND TRANSMIT THE FIRST CHARACTER 


4061 


6041 




TSr 




/THE FIRST FLAG COMES UP WITHIN USEC'S 


4062 


3261 




JMP 


."1 




4063 


5266 




JMP 


,*3 


/GO AND CLEAR FLAG AND TRANSMIT AGAIN 


4064 


6036 


INTQM, 


KR8 




/CLEAK THE RECEIVE FLAG 


4065 


7610 




SKP 


CLA 




4066 


6046 




TLS 




/LOAD AND TRANSMIT AND CLEAR FLAG 


4067 


6001 




I OM 




/TURN THE INTERRUPT ON 


4070 


5270 




JMP 






4071 


6031 


SLUJNT, 


KSF 




/SKIP ON THE RECEIVE FLAG 


4072 


7610 




SKP 


CLA 




4073 


5264 




JMP 


INTON 


/CLEAR THE RECEIVE FLAG AND TURN I NT ON 


4074 


6041 




TSF 




/SKIP IF TRANSMIT FLAG SET 


4075 


4427 




(TRROP 




/MLFGAl TNTFRRUBT 


4076 


2043 




ISZ 


CNT 


/AOl) ONE TO THE FIRST COUNTER 


4077 


5266 




JMP 


INTON+2 




4102 


2044 




ISH 


CNTl 


/OVERFLOWED FIRST COUNT ADD 1 TO SECOND 


4101 


9266 




JMP 


! NTON+2 


/GO DO ANOTHER 4095 INTERRUPTS 


4102 


7602 




HLT 


CLA 


/WAS IT -iio 3 1 3 N □ 5 ((I 


4103 


5223 




JMP 


SLUT1M 


/GO OQ I T AGAIN OR START ANOTHER TEST 


4134 


1000 


8AU0WD, 









4105 


?000 


bauort, 









4106 


','300 


STPBIT, 









4107 


0000 


BOPMTH, 










/POINTERS TO BAUD RATE TABLES 
4110 4120 BAUaTB, BR110 



/DKCSaAA OPTION TEST 1 MAINOEC.0S-DJOKA.B-L 4K PAL10 V142A 16.JUN.75 



8 I 5B 



4111 
4112 
4113 
4114 

4115 
4H6 
4117 



4120 
4121 
4122 
4123 



4124 
4125 
4126 
4127 



4130 
4131 
4132 
4133 



4134 
4135 
4136 
4137 



4140 
4141 
4142 
4143 



4124 
4130 
4134 
4140 
4144 
4150 
4154 



7266 
7777 
7324 
7777 



7076 
7777 
7147 
7777 



6174 

7777 
6316 
7777 



4370 

7777 
4633 
7777 



3760 
7777 
1467 
7777 



4144 
4145 
4146 
4147 



415B 
4151 
4152 



1737 
7776 
3156 
7776 



7675 
7774 
6332 



BR1S0 

BR300 

BR600 

BR1200 

BR2400 

RR4800 

BR9600 

/BAUD RATE CONSTANTS FOR 110 BAUD 



BR110I 



-512 
-1 

-454 
•1 



/10 B ITS AT 11 CHAR/SECs330 SHAR/30 SEC 
/ll HJTS AT 10 CHAR/SEC«300 CHAR/30 SEC 



/BAUD RATE CONSTANTS FOR 150 BAUD 

3R1S0, -702 /13 BITS AT 15 C'JAR/5EC«*50 CHAR/30 SEC 

IfiSl /ll 3ITS AT 13',64 CHAR/SECM09 CHAR/30 SEC 

-1 

/BAUD RATE CONSTANTS FOR 300 BAUD 

/13 BITS AT 30 C'JAR/?EC = 900 CHAR/30 SEC 
/ll BITS AT 27,27 CH»R/SEC=81S CHAR/30 SEC 



BR300, -1604 
-1 

-1462 
-1 



/BAUD RATE CONSTANTS FOR 630 BAUD 

/10 BjTS AT 60 CwAR/SEC=1800 ChAR/30 SEC 
/ll BITS AT 54,45 CHAR/SEC = 1637 CHAR/30 SEC 



BR600, -3410 
-1 

.3145 
-1 

/BAUD RATE CONSTANTS FOR 1200 BAUD 

/10 BJTS AT 120 CHAR/SEC»3600 CHAR/30 SEC 
/ll BJTS AT 109,09 CHAR/3EC«3273 CHAR/30 SEC 



RR1200, -7020 
-1 

-6311 
-1 

/BAUD RATE CONSTANTS FOR 2400 BAUD 

BR2400, -6041 /10 BIT AT 240 CHAR/SEC'7200 CHAR/30 SEC 

*46 2 z /li BITS AT 218,18 CHAR/SEC '6545 CHAR/30 SEC 

-2 

/BAUD RATE CONSTANTS FOR 4800 BAUD 

BR4SM, -4103 /It BITS AT 480 CH*R/SEC»14, 400 CHAR/30 SE = 

/ll BITS AT 436,36 CHAR/SEC»13 , 091 CHAR/30 SEC 



-4 

-1446 



/DKCB.AA OPTION TEST 1 MAINDEC.M.DJOKA.B.L 4K »AL10 VH2A 16.JUN.73 8(58 PASE 2.5a 

4153 7774 >4 



/BAUD "ATE CONSTANTS FOR 9600 

4154 '571 BR9600, .207 

4155 7770 -10 

4156 4664 "3114 

4157 7771 .7 



/l* BjTS AT 960 OHAR/SEC»2e,S00 CHAR/30 S£C 
/ll BITS AT 872,73 CHAR/8EC«86 , 182 CHAR/30 SEC 



4160 0000 

4161 1371 

4162 3044 

4163 3043 

4164 2043 

4165 5364 

4166 3044 

4167 5364 
4172 5760 
4171 7763 



/THIS ROUTINE WILL WAIT FOR APPROXIMATELY 255MS BEFORE EXITING TO ALLOW FLAGS TO SETTLE, 
DELAT. 



MIS, 



TAD 
OCA 
OCA 
IS? 
JMP 
ISH 
JMP 
JMP 
-15 



MIS 
CNTl 
CNT 
CNT 

i "I 

CNTl 
,.3 

DELAY 



4174 


4110 








4175 


0010 








4176 


0017 








4177 


2111 










4200 


PAGE 










/INTERACTIVE 


SKIP CHAIN FOR 


SLU.RTO, AND PI/O TEST 42 


«20e 


3325 


INTSKPi OCA 


ACDRET 


/SAVE THE AC 


4201 


7010 


BAB 






4202 


3326 


OCA 


LINKRT 


/SAVE THE LINK 


4203 


6102 


SPL 




/SKIP ON POWER LOW FLAG 


«2i"4 


7610 


SKP 


CLA 


4205 


5777' 


JMP 


POWFAL 


/POWER GOING DOWN 


4206 


6041 


TSF 




/SKIP ON SLU XMIT FLAG 


4207 


7610 


SKP 


CLA 


4210 


5327 


JMP 


XMTSER 


/XMJT FLAG SET GO SERVICE IT 


4211 


6031 


KSF 




/SKIP ON RECEIVE FLAG 


4212 


7610 


SKP 


CLA 




4213 


5776' 


JMP 


RECSER 


/SERVICE THE RECEIVE FLAG AND COMPARE DATA 


4214 


6137 


CLSK 




/SKIP ON REAL TI«E CLOCK FLA8 


4215 


7610 


SKP 


CLA 




4216 


5333 


JMP 


RTCSER 


/GO SERVICE THE RTC FLAG 


4217 


6571 


OBSK 




/SKIP ON P I/O DATA READY FLAG 


4220 


7610 


SKP 


CLA 




4221 


9224 


JMP 


PIOSER 


/GO SERVICE THE PARALLEL I/O FLAG 


4222 


4427 


ERROR 




/ILLEGAL INTERRUPT 


4223 


5445 


JMP 


I TEST 


/RESTART THE TEST 



/12 B[T PARALLEL I/O INTERACTIVE SERVICE ROUTINE TEST 42 



OPTION 


TEST 1 


MAINOEC-08.OJOKA. 


•B*L 4K 


4224 


1066 


PIOSERi 


TAD 


M10 


4225 


3076 




OCA 


PNOINT 


4226 


6572 




DBRO 




4227 


6573 




OBCF 




4230 


3052 




OCA 


PIOREC 


4231 


6570 




OBST 




4232 


4427 




ERROR 




4233 


6570 




DBST 




4234 


7610 




SKP 


CLA 


4235 


4427 




ERROR 




4236 


4775' 




JMS 


CMPACL 


4237 


1051 




TAO 


PIOXMT 


4240 


7041 




CIA 




4241 


1052 




TAD 


PIOREC 


4242 


7640 




S2A 


CLA 


4243 


4774' 




JMS 


PIOERR 


4244 


7301 




CLA CLL 


IAC 


4245 


1323 




TAD 


RANI 


4246 


1324 




TAD 


RAN2 


4247 


7106 




CLL 


RTL 


4253 


3323 




DC A 


RANI 


4251 


1324 




TAO 


RAN2 


4252 


7012 




RTR 




4253 


1323 




TAO 


RANI 


4254 


3324 




OCA 


RAN2 


4255 


1324 




TAO 


RAN2 


4256 


3071 




OCA 


EXPACD 


4257 


7010 




PAR 




4263 


3072 




OCA 


LINK 


4261 


2051 




ISZ 


PIOXMT 


4262 


1051 




TAD 


PIOXMT 


4263 


6574 




DBTD 




4264 


7300 




CL» 


CLL 


4265 


5306 




JMP 


ACLION 


4266 


1073 


RTOSLU, 


TAO 


XMTFLG 


4267 


1074 




TAO 


RECFLG 


4270 


1075 




TAD 


RTCFLG 


4271 


7650 




SNA 


CLA 


4272 


5276 




JMP 


RESET 


4273 


2077 




ISZ 


INACTV 


4274 


5386 




JMP 


4CLION 


4275 


4773< 




JMS 


INACDV 


4276 


7340 


RESET, 


CLA CLL 


CMA 


4277 


3073 




OCA 


XMTFLG 


4300 


7240 




CLA 


CMA 


4301 


3074 




OCA 


RECFLG 


4302 


7240 




CLA 


CMA 


4303 


3075 




DCA 


RTCFLG 


4304 


1372 




TAD 


(.40 


4305 


3077 




DCA 


INACTV 


4306 


4771' 


AOLIONi 


JMS 


RETURN 


4307 


4322 




INTERA 




4313 


7300 




CLA 


CLL 


4311 


1072 




TAO 


LINK 



V142A 16.JUN.75 



8|5B 



PASE 2.51 



/SET UP A COUNTER OF Mil FOR 

/parallel i/o no interrupt error 
/read the 12 bit p i/o data word 
/clear the data ready flag 
/save the word read 

/skifcano clear oata accepted * data avail, 
/dbcf failed to set oata accepted 
/skip on data accepted 

/obst failed to clear data accepted 
/compare the ac oata and link 
/compare the xmjtteo with word reao 



/ARE THEY EQUAL? 
/NO DATA ERROR 

/GENERATE A RANDOM AC DATA WORD 



/savf the expected ac oata word 

/save the expected link 

/add one to the word to be transmitted 

/get the word 

/load and transmit it 

/go get the ac oata word and l .ion 

/Check all devices to be interrupting 

/ 

/ 

/ARE THEY? 

/YES RESET FLAGS TO INACTIVE 
/BUMP DEVICE INACTIVE COUNTER 
/CONTINUE THE TEST 
/ERROH A DEVICE IS INACTIVE 

/SET SLU XMJT FLAG TO INACTIVE 

/SET SLU REC FLAG TO INACTIVE 

/SET RTC FLAG TO INACTIVE 
/RESET DEVICE INACTIVE COUNTER 
/TO -40 

/SETUP INTERRUPT RETURN 

/SETUP AC AND LI M K AND TURN INTERRUPT ON 
/GET THE LINK 



/DKCBsAA OPTION T EST t M»I«OeC.».DJDK».»,t 4K PALlB VJ42A 16.JUN.75 



4312 
4313 
4314 
4315 
4316 
4317 
4320 
4321 



7004 
1071 
6001 
2076 
5722 
7300 
4427 
5445 



4322 3000 

4323 1234 

4324 5670 

4325 0000 

4326 3000 



TAD 

ION 

IS? 

JMP 

CLA 

ERROR 

JMP 

INTERA, H 

RANI, 1234 

RAN2, 5670 

ACORET, 

LINKRT, 



8158 PAQE 2.S2 



EXPACD 

PNQ INT 
INTERA 

cut 



I TEST 



/SET THE AC DATA WORD 

/TURN THE INTERRUPT ON 

/ADD I TO P I/O NO INTERRUPT COUNTER 

/RETURN TO PROGRAM 

/ERROR PARALLEL I/O FAILED TO INTERRUPT 
/RESTART THE TEST 



4327 3073 

4330 6042 

4331 4775' 

4332 5266 



/SERIAL LINE UNIT INTERACTIVE TRANSMITTER SERVICE ROUTINE TEST 42 



XMTSeR, PC* 
TCP 
JMS 
JMP 



XMTFLG 

CMPACL 
RTCSLU 



/3£T TRANSMITTER ACTIVr FLAG 
/CLEAR THE TRANSMIT FLAG 
/COMPARE THE AC OATA WORD AND LINK 
/GO CHECK FOR ACTIVE DEVICES 



4333 
4334 
4335 
4336 
4337 
4340 
4341 
4342 
4343 
4344 
4345 
4346 
4347 
4350 
4351 
4332 
4353 
4354 
4355 
4356 
4357 

4371 
4372 
4373 
4374 
4375 
4376 
4377 



/REAL TIME CLOCK INTERACTIVE CLOCK SERVICE ROUTINE TEST 42 



3075 

6136 

4775' 

1022 

7700 

5346 

2132 

5346 

1103 

3102 

4136 

2047 

5266 

4470 

6007 

4136 

4435 

7006 

7710 

5445 

5440 

3420 
7740 
4470 
4542 
4421 
4400 
3441 
4400 



RTCSER, DC A 

CLCL 
JM5 
TAO 
SMA 
JMP 
IS? 
JMP 
TAD 
O0A 
JMS 
IS? 
JMP 
JMS 
CAP 
JMS 

SWHCHK 
RTL 
SPA 



RTCFLS 

CMPACL 
0P2SEL 
CLA 
i+6 

ACTCNT 
.+4 

M144 
ACTCNT 
TSTGOO 
TSTCNT 
RTCSLU 
I OELAYR 

TSTGOD 



CLA 



JMP I TEST 
PRGEND 



/SET CLOCK ACTIVE FLAG 
/CLEAR THE CLOCK FLAG 
/COMPARE THE AC AND LINK 

/ 1 S E I TT T ° ' F RJNN,,|S M * CT LINE 

/NO 

/I SECOND YET? 

/RESET ACT COUNTER 
/SAVE IT 

/GOOD PAS SO FAR 

/INCREMENT PROGRAM TEST COUNTER 

/GO CHECK FOR ACTIVE DEVICES 

/BELAY FOR 200MS TO ALLOW FLAGS TO SETTLE 

/CLEAR ALL FLAGS BUT SET SLU INT ENA 

/GOOD AGAIN ! • I J 

/CHECK SR2«1 TO LOOP ON TEST 

/LOOP? 

/YES, go TE5T OVER 
/NO, ENU OF TEST 



/DKCS.AA OPTION TEST l MA I NDEC,08.DJDKA.a.L 4K PAL10 
/ 
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4400 
4401 
4402 
44S3 
4404 
4435 
4406 
4407 
4410 
4411 
4412 
4413 
4414 
4415 
4416 
441? 
4420 



/SERIAL LINE UNIT INTERACTIVE RECEIVER SERVICE ROUTINE TEST 4 2 

/SET RECEIVE FLAG To ACTIVE 
/CLEAR AC AND FLAG AND READ BUFFER 
/SAVE THE WORD READ 
/COMPARE THE AC AND LINK 

/COMPARE THE WORD TRANSMITTED WITH WORD READ 

/ARE THEY EQUAL) 
/NO, UATA ERROR 

/ADD ONE TO THE WORD TO 9E TRANSMITTED 

/MASK OUT FOR THE EIGHT SITS 
/SAVE THE NEW WORD 
/SET THE WORD AND TRANSMIT IT 
/LOAD AND TRANSMIT THE WORD 



3074 


recser, oca 


RECFLG 


6036 


KR8 


3054 


DCA 


SLUREC 


4221 


JMS 


CMPACL 


1054 


TAO 


SLUXMT 


7041 


CIA 


1054 


TAD 


SLUREC 


7640 


SZA 


CLA 


4317 


JMS 


SLUERR 


1053 


TAO 


SLUXMT 


7001 


IAC 


0056 


AND 


K377 


3053 


DCA 


SLUXMT 


1093 


TAD 


SLUXMT 


6046 


TLS 


7300 


CLA 


CLL 


5777' 


JMP 


RTCSLU 



/GO CHECK FOR ACTIVE DEVICES AND RESET THE AC 



4421 
4422 
4423 
4424 
4425 
4426 
4427 
4430 
4431 
4432 
4433 
4434 
4435 
4436 

4437 
4440 
4441 
4442 
4443 
4444 
4445 
4446 
4447 
4453 
4451 
4452 
4453 



/ROUTINE TO CHECK THAT THE AC AND LINK DIDN'T CHANGE DURING INTERACTION TEST 42 

/GET THE EXPECTED AC DATA 

/GET THE DATA RETURNED 
/ARE THEY EQUAL 
/NO, ERROR 
/GET EXPECTED LINK 

/GET THE RETURN LINK 
/ARE THEY EQUAL? 
/YES, RETURN TO TEST 



/CHECK TO SEE IF RUNNING ON ACT LINE 
/CHECK 3R0U TO INHIBIT ERROR HALT 

/INHIBIT ERROR HALT, GO CHECK LOOP SWITCH 

/AC CONTAINS ADDRESS WHERE THE ERROR WAS DETECTED 



3000 


CMPACL, 






1071 




TAD 


EXPACD 


7041 




CIA 


1776' 




TAO 


ACORET 


7640 




SHA 


CLA 


5234 




JMP 


ACLERR 


1072 




TAD 


LINK 


7041 




CIA 


1775< 




TAD 


LINKRT 


7650 




SNA 


CLA 


5621 




JMP I 


CMPACL 


1221 


ACLERR, 


TAD 


CMPACL 


5237 




DCA 


,+2 


7610 




SKP 


CLA 


7402 




HLT/CMPACL 


4774' 




JMS 


ACTCHK 


4435 




5WHCHK 


7710 




SPA 


CLA 


5263 




JMP 


ACLLOP 


7240 




CLA 


CMA 


1221 




TAD 


CMPACL 


7402 




HLT 


7200 




CLA 




1071 




TAO 


EXPACO 


7432 




HLT 




7200 




CLA 




1776' 




TAO 


ACDRET 



/THE AC CONTAINS AC OATA BEFORE INTERRUPT 



OPTION 


TEST \ 


MAINDEC»efl«DJDKA«B»U 4K 


Pit * ff! U< igl lA«JUNn74 ■!(][ OmKA 


4494 


7402 


HLT 




/THE AC CONTAINS AC DATA AFTER INTERRUPT 


4455 


7200 


CI.A 






4456 


1072 


TAD 


LINK 




4457 


7492 


HLT 




/THE AC CONTAINS THE LINK BEFORE INTERRUPT 


4463 


7ggy 


CLA 






4461 


1775' 


tad 


LINKRT 


/THE AC cnwT Al us link AFTER INTERRUPT 


4462 


7402 


HLT 




4463 


4435 


ACLLOPi SWHCHK 




/CHECK SR 1 TO LOOP ON ERROR 


4464 


7004 


RAL 






4465 


7710 


SPA 


CLA 




4466 


5446 


JMP I 


TSTLOP 


^i»Li L> lj ur 


4467 


"5621 


JMP I 


CMPACL 


/RFTL1HN TO TFST 

f nL 1 WT' 1 U i[Lwi 






/INACTIVE 0EVIC£ error 




4470 


#000 


INACBVi a 






m i i. 


4 774' 


JMS 


ACTCHK 


ynurrK to srr tf runmjwg nN tup apt i int 


4472 


4435 


SWHCHK 




/INHIBIT ERROR HALT? 


4473 


7710 


SPA 


CLA 




4474 


^312 


JMP 


INACLP 


/YES CHECK LOOP SWITCH 






CLA 


CM* 




4476 


1 5701 


TAD 


INACDV 




4477 


7402 


HLT 




/AC ■ ApDRESS WHERE ERROR WAS DETECTED 






CLA 


CLL 




4501 


1073 


TAD 


XMTFLG 




4502 


7640 


S2A 


CLA 




45PI3 


7432 


HLT 




/Si U XMIT FLAG IS INACTIVP 


4534 


1074 


TAD 


RECFLG 




45^5 


7640 


SZA 


CLA 




4506 




ML T 




/ 5 1 u HFr.riVF F 1 a is i n a f t ! v p 


4507 


1075 


TAD 


RTCFLG 






7640 


52A 


CLA 




4511 


7402 


HL T 




/RTC FLAG IS INACTIVE 


4512 


4435 


INACLPi SWHCHK 




/CHECK SR1U TO LOOP ON ERROR 


4513 


7004 


RAL 






4514 


7710 


SPA 


CLA 




45l5 


6446 


JMP I 


TSTLOP 


/SCOPE LOOP 


4916 


5670 


JMP I 


INACDV 


/RETURN TO THE TEST 






/SLU DATA EURO" 


DUPING 


INTERACTION TEST 42 


. . _ 


3000 


SLUERHi V 






a ft 

4522. 


4 774' 


JMS 


ACTCHK 


tdicrv Tri ttrr ? F Diiukif uR am act 1 mr 
ZuHtLf\ T U 3tL \r RUPiN I Nil Q N »vt wl^t 


4521 


4435 


SWHCHK 






4522 


7710 


SPA 


CLA 




4523 


**335 


JMP 


SLULDP 


/SR"1 INHIBIT ERROR HALT-CHECK LOOP SW 


4524 


7240 


CLA 


CMA 


4525 


1317 


TAD 


SLUERR 








■ HLT 






4527 


7200 


CLA 






4530 


1053 


TAD 


SLUXMT 




4531 


7402 


HLT 




/AC ■ WORD TRANSMITTED 


4532 


7200 


CLA 






4533 


1254 


TAD 


SLUREC 




4534 


7402 


HLT 




/AC = WORD THAT WAS READ 



/DKCB-AA OPTION TEST 1 MA INOEC«0B"OJDKA-B*L 4K PAL10 



4533 


4435 


SLULOPi SWHCHK 




4536 


7004 


RAL 




4537 


7710 


SPA 


CLA 


4543 


5446 


JMP I 


TSTLOP 


4541 


5717 


JMP I 


SLUERR 






/PARALLEL I/O 


DATA ERROR 


4542 


0000 


PIOERR! 




4543 


4774' 


JMS 


ACTCHK 


4544 


4435 


SWHCHK 




4545 


7710 


SPA 


CLA 


4546 


5360 


JMP 


PIOLOP 


4547 


7240 


CL» 


CMA 


455? 


13*2 


TAO 


PIOERR 


4551 


7402 


HLT 




4552 


7200 


CLA 




4553 


1051 


TAO 


PIOXMT 


4554 


7402 


HLT 




4555 


7200 


CLA 




4556 


1052 


TAO 


PIOREC 


4557 


7432 


HLT 




4563 


4435 


PIOLOPi SWHCHK 




4561 


7004 


RAL 




4562 


7710 


SPA 


CLA 


4563 


?446 


JMP I 


TSTLOP 


4564 


5742 


JMP I 


PIOERR 


4574 


3526 






4575 


4326 






4576 


4325 






4577 


4266 








4600 


PAGE 




460Z 


1000 


passed i " 




4601 


7710 


SPA 


CLA 


4602 


7402 


HLT 




4603 


1021 


TAD 


0P1SEL 


4604 


?377 


AND 


(100 


4605 


7650 


SNA 


CLA 


4006 


5224 


JMP 


STNPAS 


4607 


6007 


CAF 




461? 


6173 


STIP 




4611 


7410 


SKP 




4612 


5216 


JMP 


,+< 


4613 


6007 


CAF 




4614 


6170 


XRON 




4615 


5224 


JMP 


STNPAS 


4616 


6160 


SIHCLR 




4617 


6007 


CAF 




4623 


6171 


SKXH 




4621 


6170 


XRON 




4622 


6007 


CAF 




46?3 


5224 


JMP 


STNPAS 



V142A 16»JUN»75 9158 PAGE 2-55 

/CHECK SRl'l TO LOOP ON ERROR 



/SCOPE LOOP 
/RETURN TO TEST 



/CHECK TO 5EE IF RUNNING ON ACT LINE 

/INHIBIT ERROR HALT? 
/YES, CHECK LOOP SWITCH 



/AC = ADDRESS WHERE ERROR WAS DETECTED 
/AC = THE WORD TRANSMITTED 



/AC ■ THE WORD READ FROM P I/O 
/LOOP ON ERROR I F SRjsl 



/SCOPE LOOP 
/RETURN TO TEST 



/SRJn END OF A COMPLETE PROGRAM PASS 
/GET THE HARDWARE CONFIGURATION 
/MASK OUT XOR BIT 
/IS IT SET ? 
/NO RETURN 
/CLEAR ALL FLAGS 

/'SKIP IF MUT POWER ON AND 1ST XRON 

/MUT POWER ON GO ISSUE SECOND XRON 

/CLEAR ALL FLAGS 

/START INITIALIZATION OF MUX 

/RETURN TO PROGRAM 

/CLEAR THE SIMULATOR 

/CLEAR ALL FLAGS 

/SKIP IF ERROR 1 FLOP SET 

/START ACTUAL TEST AND ENABLE ALL ERRORS 
/CLEAR ALL FLAGS 
/RETURN TO PROGRAM 



/OKCB.AA OPTION TEST i MAINDEO"00'OJDKA.B*U 4K PAL10 «142A 16-JUN.75 



8|58 PAGE J«54 



4624 


2200 


STNPASi 


ISZ 


PASSED 


4625 


5600 




JMP ! 


PASSED 


4626 


.1000 


DQNONEi 







4627 


1021 




TAD 


OP1SEL 


4630 


0377 




AND 


(100 


4631 


7640 




SZA 


CLA 


4632 


6171 




SKXH 




4633 


2047 




152 


TSTCNT 


4634 


5446 




JMP 1 


TSTLOP 


4635 


2226 




tsz 


DONONE 


4636 


5626 




JMP I 


DONONE 


4637 


0000 


TSFXOR f 







4648 


1021 




TAD 


OPtSEL 


4641 


8377 




AND 


(100 


46 42 


7640 




SZA 


CLA 


4643 


5251 




JMP 


XORTSF 


4644 


4267 




JMS 


OFONK ! 


4645 


6041 




TSF 




46«6 


5637 




JMP 1 


TSFXOR 


4647 


2237 


TSPRET, 


ISZ 


TSFXOR 


465T 


5637 




JMP I 


TSPXOR 


4651 


6002 


XORTSF, 


IOP 




4652 


1055 




TAD 


CONTWD 


4653 


3064 




AND 


K7 


4654 


1376 




TAD 


(XU0B 


4655 


3303 




OCA 


TEMP 


4656 


1703 




TAO I 


TEMP 


4657 


3347 




DCA 


NDELAY 


4663 


4324 




JMS 


DELAYB 


4661 


6041 




TSF 




4662 


4427 




ERROR 




4663 


4267 




JMS 


OFONK I 


4664 


6001 




ION 




4665 


7000 




NQP 




4666 


5247 




JMP 


TSFRET 


4667 


3000 


OFONK I i 







4670 


1045 




TAO 


TEST 


4671 


1375 




TAD 


(.TEST31 


4672 


7650 




SNA 


CLA 


4673 


5300 




JMP 


i*5 


4674 


1045 




TAD 


TEST 


4675 


1374 




TAD 


(•TEST37 


4676 


7640 




SZA 


CLA 


4677 


7301 




CLA CUL 


IAC 


4700 


6035 




KIE 




4701 


7200 




CLA 




4702 


5667 




JMP 1 


OFONKI 



/HUMP RETURN POINTER 
/RETRUN TO PROGRAM 



/GET THE HARDWARE CONFIGURATION 
/MASK OFF XOR BJT 
/IS IT SET 7 

/YES , SKIP IF XOR ERROR 1 SET 

/INCREMENT TEST COUNTER 

/GO BACK TO SAME TEST 

/BUMP RETURN POINTER 

/RETURN FOR NEXT TEST OR SAME TEST 



/GET THE HARDWARE CONFIGURATION 

/MASK OUT THE XOR SIT 

/IS THE XOR BIT SET 

/YES, SO WAIT FOR THE FLAGS 

/CHECK TO SEE IF INT ENA 

/NO i SKIP ON THE SLU XMJT FLAG 

/FLAG NaT SET RETURN TO SUMP COUNTER 

/BUMP A LOCATION TO SIMULATE A SKIP 

/RETURN TO THE PROGRAM 

/TURN THE INTERRUPT OFF 

/GET THE SIMULATOR CONTROL WORD 

/MASK THE BAUD RATE BITS OUT 

/GET THE TABLE STARTING ADDRESS 

/SAVE THE ADDRESS 

/GET THE BAUD RATE CONSTANT 

/SAVE IT FOR THE DELAY 

/DELAY ACCORDING TO BAUD RATE 

/SKIP ON SLU XMIT FLAG 

/FLAG NOT SET IN ALLOTTED T I ME 

/CHECK INT ENA FOR ON OR OFF 

/TURN THE INTERRUPT ON 

/SHOULD INTERRUPT HERE IF GOING TO 

/RETUHN TO THE PROGRAM 

/ROUTINE TO TURN INT ENA OFF OR ON 
/GET THE TEST BEING EXECUTED 

/WAS JT TEST 31 

/YES- DISABLE SLU INT ENA 

/GET THE TEST BEING EXECUTED 

/WAS IT TEST 37 

/NO, SET THE AC TO 0001 

/ENABLE OR DISABLE SLU INT ENA 

/CLEAR THE AC BIT IF SET 

/RETURN 



/DKC8.AA OPTION TEST 1 HA INDEC.BS-DJDKA.B.L 4K PAL10 
4703 ?.000 TEMP, P 



4704 5664 

4705 6340 

4706 7160 

4707 7470 

4710 7634 

4711 7716 

4712 7747 

4713 7763 



4714 7000 

4715 6041 

4716 5714 

4717 1021 

4720 0377 

4721 7640 

4722 5773' 

4723 5772' 



DECIMAL 

X110B, 

X150B, 

X 3009 I 

X6309i 

X1200B, 

X2400B, 

X4800B, 

X9600B, 

OCTAL 



■1100 
800 

.400 
200 
100 
50 
25 
13 



I'iTXORi 

TSF 
JMP 
TAD 
AND 
SZA 
JMP 
JMP 



INTXOR 
DP1SEL 
(100 
CLA 

FLGCK3 
FLGCK2 



V142A 16pJUN.75 8|58 



/1101S 

/80MS 

/40MS 

/20MS 

/ISMS 

/5MS 

/2',5HS 

/i; jms 



/skip on slu xmit flag 

/not xmit flag. return to skip chain 

/get the hardware configuration 

/mask out the xor bit 

/is the xor selected 

/yes. skip over receive flag check 

/no. check slu receive flag 



4724 


D000 


DELAYS, 







4725 


7300 




CLA 


CLL 


4726 


1347 




TAD 


NDELAY 


4727 


3350 




DCA 


DELAYN 


4733 


1351 


DELLOP, 


TAO 


CON100 


4731 


3352 




DCA 


1JS100 


4732 


2352 




ISZ 


US100 


4733 


5332 




JMP 


,-1 


4734 


7200 




CLA 




4735 


7200 




CLA 




4736 


7200 




CLA 




4737 


7200 




CLA 




4740 


2350 




ISZ 


DELAYN 


4741 


7610 




SKP 


CLA 


4742 


5724 




jmp : 


: UELAYB 


4743 


!"724 




AND ] 


DELAYB 


4744 


0724 




AND : 


DELAYB 


4745 


,'324 




AND 


DELAYB 


4746 


5330 




JMP 


DELLOP 


4747 


0000 


NDELAY", 







4790 


0000 


OElAYNi 







4751 


7754 


CON100, 


• 24 




4752 


0000 


USIMi 








4793 ?000 CLKXOR, 

4754 1021 TAD OP1SEL 

4755 -3377 AND (100 
4796 7640 SZA CLA 
4757 1771' JMS XQRCLK 

4760 6137 CLSK 

4761 5753 JMP I CLKXOR 



/GET THE HARDWARE CONFIGURATION 

/MASK OUT THE XOR BIT 

/IS THE XOR BIT SET 7 

/YES, GO WAIT FOR THE FLAG 

/NO i SKIP ON THE CLOCK FLAG 

/FLAG NOT SET . RETURN TO 8JHP COUNTER 



/BKCB.AA OPTION TEST 1 H*INOEO-B8»OJOK*-B-i. «K PAL10 Vi«2A l6««IUN.7S l|58 PASE Z»9i 



4762 


2353 


4763 


3793 


4771 


3000 


4772 


3306 


4773 


3311 


4774 


9292 


4775 




4776 


4704 


4777 


0102 




9000 


?B02 


00013 


9001 


6135 


5002 


6002 




1777 




3776 


9005 


4775 




6137 




4497 




4 774 


9011 


1373 


9012 


7690 


3013 


7301 


yyi4 


6135 


5^lS 


7200 


3016 


6001 


9017 


7000 


5022 


2200 


5021 


2200 


5022 


3600 


9173 


7404 


5174 


3352 


5175 


4724 


9176 


4747 


517? 

-'1" 


4710 




0200 


0177 


4753 



!S« CLKXOR 
JMP I CLKXOR 



/BUMP LOCATION TO SIMULATE THE SKIP 
/RETUHN TO THE PROGRAM 



PAGE 
XO«CLX. 



t 

TAD 

OCA 

JMS 

CLSK 

ERROR 

TAD 

TAD 

SNA 



X1200B 
NDELAY 
DELATES 



HTCLSK 

(.XORENA 

CLA 



CLA CLL (AC 

CLLE 

CL* 

ION 

WOP 

ISi XORCLK 
15* XORCLK 
JMP I XORCLK 



»200 



/CLEAH CLK INT ENA 

/TURN THE INTERRUPT OFF 

/GET A 10MS CONSTANT 

/SAVE IT FOR THE DELAY 

/DELAY FOR APPROXIMATELY 10MS 

/SKIP ON THE CLOCK FLAG 

/FLAG NOT SET IN ALLOTTED TIME 

/GET THE ADDRESS INTO CLOCK UAlT ROUTINE 

/CHECK TO SEE IF ENABLE SR DISABLE I NT ENA 

/ENABLE OR DISABLE CLK I NT ENA ? 

/ENABLE THE CLK INT ENA 

/DISABLE IT IF ABOVE SKIPPED 

/TURN THE INTERRUPT ON 

/SHOULD INTERRUPT HERE IF IT IS GOING TO 

/BUMP RETURN POINTER BY 2 

/ 

/RETURN TO THE PROGRAM 



/DKCG 


,AA OPTION 


TEST 1 MAINDEO.08.DJDKA„i)«L 4X 


PAL10 


V142A 16 


•JUN.75 


! 196 


0000 
3108 


11110003 
11111111 


^0000000 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
11111000 


lllltlll 
00000000 


llllllll 
00000001 


3200 
0300 


11111111 
11111111 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


3400 
0500 


11111111 
11111111 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


0600 
0700 


11111111 
11111111 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
11111-111 


llllllll 
llllllll 


llllllll 
llllllll 


lllltlll 
llllllll 


1000 
1100 


11111111 
11111111 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
11111001 


1200 
1300 


11111111 
11111111 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 

ililliii 


llllllll 
llllllll 


llllllll 
llllllll 


1400 
1500 


11111111 
11111111 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
iliiiili 


llllllll 
llllllll 


lllltlll 
llllllll 


1600 
1700 


11111111 
11111111 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


liiiini 
111111I1 


llllllll 
llllllll 


llllllll 
llllllll 


2000 
2100 


11111111 
11111111 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


11111111 
iliiiili 


llllllll 
11110000 


llllllll 
00000011 


2208 
2300 


11111111 
11111111 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


11111111 
iliiiili 


llllllll 
llllllll 


llllllll 
llllllll 


2400 
2500 


11111111 
11111111 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


11111111 
11111111 


llllllll 
llllllll 


llllllll 
llllllll 


2600 
2700 


11111111 
11111111 


llllllll 
11100000 


llllllll 

00000000 


llllllll 
30000000 


llllllll 

00000000 


ililliii 

00000000 


llllllll 

00000000 


llllllll 
00000011 


3000 
3100 


11111111 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


Ulllltl 

llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
00000011 


3200 
3300 


lllltlll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 

iliiiili 


llllllll 
llllllll 


llllllll 
llllllll 


3400 
3500 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


liiimi 
11111111 


llllllll 
llllllll 


llllllll 
llllllll 


3600 
3700 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


111111I1 
11111111 


llllllll 
llllllll 


llllllll 
llllllll 



PAGE 2.59 



/DKC8.AA OPTION TEST 1 MAIN0EC.B6»DJ0K*»B-L 4K PAL10 V14JA 16.JuN.75 it5S PACE 2.68 



<smn 



4200 
4300 



4480 

4500 



4400 
4700 



11111111 
11111111 



11111111 
11111111 



11111111 
11111111 



11111111 
11111111 



11111111 
11111111 



11111111 

iiiiuii 



liiiiiu 
iiiiuii 



iiiiuii 
iiiiuii 



Iiiiuii 
liiimi 



iiiiuii 

111111U 



iiiiuii 

11U1111 



iiiiuii 
liiiim 



iiiiuii 
iiiiuii 



liiiiiu 

11111H1 



iiiiuii 
muni 



mum 

11111111 



llllllU 

mum 



mum 
mum 



miim 
miim 



lmmi 
mum 



iiliiili 
Ilium 



llllllU 
llllllil 



iiiimi 
iiiimi 



iiiiuii 
iiiiuii 



mum 

llllllU 



llllllU 

000000^0 



mum 

11111000 



llllllU 
U110000 



muni 
lKBliii 



llllllil 

mum 



iiiimi 

000011U 



uuim 
01111m 



5000 
5100 



5200 
5300 



5400 
5500 



5600 
5700 



4200 
4300 



4400 
4500 



7200 
7300 



7400 
7500 



Illlllll llllllil 11100000 
00000000 30000000 00000000 00000000 00003000 00000000 90000000 200U111 



7600 
7700 



/DKC8.AA OPj t ON JEST 1 MAINOEC.08.DJDKA.B.L 4K 



AC 


3251 


OBSE 


6575 


ACDRET 


4325 


DBS* 


6571 


ACLERR 


4434 


DBSS 


6577 


ACLIO'J 


4336 


OBST 


6570 


ACLLOP 


4463 


OBTD 


6574 


ACTCHK 


3526 


DEIAV 


4160 


ACTCK2 


3276 


DELAYS 


4724 


ACTCMT 


0102 


DELAYN 


4750 


ACTFLG 


■413* 


9ELAYR 


0070 


ACTRET 


3564 


HELLOP 


4730 


APDT J fl 


3362 


DERPIO 


3711 


AERR0R 


3475 


DERSLU 


3734 


AERSVH 


3507 


DONLOP 


4424 


PAOPAS 


0100 


DONONE 


4626 


RAUPRT 


4105 


ENARTC 


0146 


RAUDT3 


4U0 


ENDPAS 


3400 


HAU0W0 


4104 


ERROR 


4427 


BDPNTR 


4107 


ERRPC 


3543 


RR110 


4120 


EXPACD 


0071 


RP.1200 


4140 


FLGCK1 


3303 


9R150 


4124 


FLGCK2 


3306 


9R2400 


4144 


FLGCK3 


3311 


SR300 


4130 


FLGCM 


3314 


BR4803 


4150 


FLGCK5 


3317 


RR600 


4134 


FLGRST 


3467 


RR'630 


4154 


FR0C«T 


3043 


C7 


3470 


FROTAB 


3114 


CAF 


6007 


GOODPS 


0101 


CAL 


4133 


GIF 


6004 


CHKACT 


3544 


HLT 


7402 


CHKSI'1 


3761 


INACDV 


4470 


CHKSUM 


3407 


INACLP 


4512 


CLCL 


6136 


INACTV 


0077 


GLKFLG 


3042 


INTERA 


4322 


CLKSET 


3552 


INTFLG 


0041 


CLKSIJ5 


SI 35 


INTON 


4064 


CLKXOR 


4753 


INTRET 


3326 


CLLE 


6135 


INTSKp 


4200 


CLRDET 


6156 


INTXDR 


4714 


CLRSIH 


6150 


K0 


3436 


CLSK 


6137 


Kl 


0125 


CLSK'JT 


4425 


K10 


3471 


CMP4CL 


4421 


"11 


3473 


CNT 


0043 


Kl? 


3474 


CNTl 


0044 


K125 


0061 


SON108 


4751 


K2 


0126 


SONTWD 


0055 


K200 


0057 


DATPIO 


3600 


K252 


0060 


DATSLO 


3653 


K2525 


0063 


BBCE 


6576 


'3 


0127 


flBCF 


6573 


K377 


0056 


OBRO 


6572 


K5252 


0062 



V142A 


16.JuN.75 


S | 58 


PAGE 2.61 


K7 


0064 


RECSER 


4400 


K771P 


0150 


RESET 


4276 


KCC 


6032 


RETADD 


3437 


KCDF 


0132 


RETURN 


3420 


KCF 


6030 


RMF 


6244 


KIE 


6035 


RTCEMA 


4146 


KJMP 


0130 


RTCFLG 


0075 


KJMP7 


3465 


RTCF3Q 


3044 


KJHPRT 


3472 


RTCINT 


4015 


KHB 


6036 


RTCSER 


4333 


KRMF 


0131 


RTCSLU 


4264 


KRS 


6034 


RTCTIM 


4000 


KRTF 


0133 


RTP 


6005 


KSF 


6031 


RTIM3K 


3041 


KSFWAT 


4432 


SAVADD 


0124 


KTEST 


3466 


SAVCNT 


0050 


LINK 


0072 


SAVL0C 


3440 


LINKRT 


4326 


SBE 


6101 


LOADSM 


6151 


SIKCMK 


4436 


LQDFR!) 


6163 


SIHCLR 


6162 


L0D5IH 


4437 


SIMCNT 


0067 


LOOHPC 


4423 


SIHIMT 


3244 


LQOPSW 


3237 


3IML0D 


3214 


LOPDON 


3221 


3INWR0 


3514 


H10 


0066 


SKPCHN 


3252 


H144 


0103 


3KPDAV 


6165 


"15 


4171 


SKPFRQ 


6162 


M4 


0065 


SKPRDR 


6157 


H40 


3167 


SKPSTR 


6167 


NDELAY 


4747 


SKXR 


6171 


OFONKJ 


4667 


SLUOAT 


4433 


ONACTL 


3565 


3LUDER 


4434 


0P13K 


0000 


SLUERR 


4517 


OPlSEL 


0021 


5LUINT 


4071 


0P2SEL 


0022 


SLULOP 


4535 


PASSED 


4600 


SLUREC 


0054 


PATCH 


0104 


SLUSTR 


4050 


PCLODP 


3200 


SLUSUH 


3754 


PI004T 


4426 


SLUT1M 


4023 


PIODER 


4430 


SLUT3K 


3112 


PIOERR 


4542 




0053 


PIOLOP 


4560 


SPI 


6043 


FMOKEC 


0052 


SPL 


6102 


PIOSER 


4224 


STIP 


6173 


PIOSUN 


3727 


STNPAS 


4624 


PIOX«T 


0051 


STPB!T 


4106 


"NOJNT 


0076 


STRFRQ 


6161 


POWFAL 


3441 


SWHCHK 


4435 


PHGENO 


5440 


SWITCH 


0020 


PANl 


4323 


SXRC 


6175 


RAN2 


4324 


tabfrq 


3073 


RECFLU 


0074 


TCP 


6042 



/DKCB.AA OPTION TEST 1 MAlNOEC.0B.DJDKA.B-t 4K PAL10 16.JUN-75 6 |SB PAGE 2.6! 



TE^P 


4 703 


TSTGOp 


0136 


TEST 


<*045 


TSTL.OP 


0046 


TESTl 




US102 1 




TEST10 


0663 


W ATKST 


3341 


TESTll 


?733 


W ATTSF 


3327 


TE9T12 


3774 


WTC1.5K 


3352 


TEST13 


1027 


X110S 


4704 


TEST14 


1124 


v * <3 m ran 


4710 


TESTIS 


1137 


X150B 


4705 


TEST16 


1155 


X2400B 


4711 


TESTl? 


1200 


X308B 


4706 


TESTIS 


1221 


X4800B 


4712 


TEST19 


1273 


X60SJB 


4707 


TEST2 


8246 


X9600B 


4713 


TEST20 


1343 


XMTFIG 


0073 


TEST21 


1406 


XMTSER 


4327 


TEST22 


1457 




5000 


TEST23 


1527 


XQSENA 


0374 


TEST24 


1611 


XQRTSF 


4651 


TEST25 


1644 


XRC 1 


6172 


TEST26 


1721 


XRON 


6170 


TEST27 


2012 


XRS 1 


6174 


TEST28 


2107 


XRTO 


6176 


TEST2' 


2200 






TEST3 


f'304 






TEST30 


2247 






TEST31 


2301 






TEST32 


2424 






TEST33 


2436 






TEST34 


2491 






TEST35 


2467 






TEST36 


2506 






TEST37 


2526 






TEST38 


2603 






TEST39 


2653 






TEST4 


0337 






TEST49 


3030 






TEST41 


3045 






TEST42 


3124 






TESTS 


0413 






TESTS 


S452 






TEST7 


F503 






TESTS 


H547 






TEST9 


2620 






TFL 


6040 






TLS 


6046 






TPC 


6044 






TSF 


6041 






TSFRET 


4647 






TSFWAT 


4431 






TSFXOR 


4637 






TSTCNT 


>'047 







/0KC8.AA OPTION TEST 1 nAInDEO.0»-DJDk*-B-L 4 K PA L 1Z V14JA 16.JUN-75 

ERRORS DETECTED ! 
UNKS GENERATED! 38 
RUN«T I MC I 22 SECONDS 
3K CORE JSEp 



/DKOB.AA or-MON TEST 1 MMNDE5.»".OJOK*.B,t « PART 1 "142k 16.JUN.75 »1»B »■ 

/OKCS-AA OPTION TEST 1 MAINOEC«0««OJDKA-B.L IK PART 1 
/COPYRIGHT (C) X974, 1975 DIGITAL EOUlPMENT CORPORATION 



/ 

/PROGRAM^! BRUCE HANSE'J 
/ 



///////////////////////////////////////////////////////////////////////// 

/THE FOLLOWING LISTING WJLL cORRtSPONy TO THE PAPE R TAP£ LABELED 
/MAINDEC-0S-OJDKA-B-PMt, IK VERSION PART 1, THIS PAPER TAPE AND 
/LISTING KILL BE THE FIRST OF FOUR IK SEGMENTED 'APER TAPES AND 
/LISTINGS FOB COMPUTERS WITH LESS THAN OK OF MEMORY , 

///////////////////////////////////////////////////////////////////////// 



/OKCB.AA OPTION TEST 1 MAINOEC-08,DJOKA-B-L IK PART 1 PAL1C V142A 16-UUN-75 



/DKCB-AA OPTION TEST 1 MA I NDEC.08-OJOKA.B.1. IK PART 1 

/COPYRIGHT (C) 1974, 1975 DIGITAL EQUIPMENT CORPORATION 
/ 

/PROGRAMMER I BRUCE HANSEN 



/PROCESSOR INSTRUCTIONS 

6007 CAF«6307 

6102 SPL«6192 

6103 CAL"610J 
6101 SBE'6101 
7402 HLT>7402 
6244 RMF«6244 
6005 RTF«6005 
6004 CTF-6004 

/OPTION ROARO NUMBER 1 lOT'S 

//SERIAL LINE UNIT 
/RECEIVER !OTS 

6030 KcF"6030 

6031 KSF=6031 

6032 KCC»6032 

6034 KRS»6034 

6035 K!E"6035 

6036 KRB56036 
/TRANSMIT IOTS 

6040 TPL»634B 

6041 TSF»6341 

6042 TCF«6k)42 
A044 TPC=6044 

6045 SP I =634S 

6046 TLS»6046 

/REAL TIME CRYSTAL CLOCK 



6136 
6137 



6570 
6571 
6572 
6373 
6574 
6575 



/CLEAR ALL FLAGS 
/SKIP ON AC LOW FLIP-FLOP 
/CLEAR AC LOW FLIP-FLOP 
/SKIP ON BATTERY EMPTY 

/RESTORE MEMORY FIELD 



/CLEAR RECEIVE FLAG, DON'T SrT READE" RUN 
/SKIP ON RECEIVE FLAG 

/CLEAR RECEIVE FLAG AND AC, SET READER RUN 
/READ RECEIVE BUFFER 
/AC 11>1 SET INTERRUPT ENABLE 
/AC 11«0 CLEAR INTERRUPT ENABLE 

/CLEAR RECEIVE FLAG AND AC, SET READER RUN AND READ 
/RECEIVE BUFFER 

/SfT TRANSMIT FLAG 
/SKIP ON TRANSMIT FLAG 
/CLEAR THE TPAN5"IT FLAG 
/LOAD TRANSMIT SUFFER AND TRANSMIT 

/SKIP IF TRANSMIT OR RECEIVE FLAG SET AND i NT ENA SET TO A 1 
/LOAD TRANSMIT BUFFER, TRANSMIT AND CLEAR TRANSMIT FLAG 



6135 CLLE»6135 



CLCL«6136 
CLSK=6137 



A2 BIT PARALLEL I/O 

0BST.6?7<» 
D BSK=6571 
DBRQ=6572 
0BCFS6573 
D9TQ«657« 
0BSE>6575 



/AC 11«1 SET INTERRUPT ENABLE 
/AC 11P0 CLEAR INTERRUPT ENABLE 
/CLEAR CLOCK FLAG 
/SKIP ON CLOCK FLAG 



/SKIP ON DATA ACCEPTED , CLEAR DATA ACCEPTED AND DATA AVAILABLE 
/SKIP ON DATA ReAdT FLAG 
/READ DATA INTO AC 0-11 

/CLEAR DATA READY FLAG, ISSUE DATA ACCEPTED OUT 
/LOAD AC 0.11 INTO BUFFER AND TRANSMIT DATA OUT 
/SET INTERRUPT ENABLE TO A 1 . 



/DKCmAA OPTION TEST 1 MAINOCO»ei-OJOKA-B»t IK PART t PALIS V142A lj.JUN.7J 



9IS0 »ASt S.l 



6576 Dact.ssrt /SET interrupt ENABLE TO A 

6577 DBSS»6977 /ISSUE A STROBE PULSE 

/SAITOH REGISTER SETTINGS 

/SR0.1 • INHIBIT ERROR HALT 
/SRi'J, • LOOP ON ERROR 
/SR2»t • LOOP ON TEST 

/SRJ.l • HALT AT COMPLETION or A PROGRAM PASS 

/OPTION BOARD 1 SIMULATOR lOT'S 

6130 CLRSIM»6150 /CLEAR SIMULATOR CONTROL REGISTERS 

6131 L0ADSMP6151 /LOAD SIMULATOR CONTROL WORD t 

U'6 CLRDET.6156 /CLEAR READER RUN, STROBE', AND DATA AVAILABLE CATCHER P/PlS 

6137 SKPRDR=6157 /SKIP ON READER RUN CATCHER F/r SET 

6160 SIMCLR«6t6!> /CLEAR CONTROL REGISTERS AND MOST OF LOGIC ON SIMUALTOR 

6161 STRFR0.6161 /START FREQUENCY CHECK (SLU OR RTd 

6162 SKPFR««416Z /SKIP ON FREQUENCY CHECK IN PROGRESS 

6163 LODFRQ.6163 /READ FREQUENCY COUNT INTO AC 

6165 SKPOAV.6165 /SKIP ON DATA AVAILABLE CATCHER F/F SET 

6167 SKPSTH.6',67 /SKIP ON STROBE CATCHER F/F SET 

/OPTION BOARD 1 SIMULATOR CONTROL WORO SIT ASSIGNMENTS 
/BIT COUNTER RESET l'ACTIVATE 

/ *«NQ ACTION 

/BIT 1 PARALLEL I/O CLEAR DATA 1 = TS1 

/ AVAILABLE SELECT 0.OATA ACCEPTED IN 

/BIT 2 NOT USED 

/BIT 3 NOT USED 

/BIT 4 NOT USED 

/BIT 5 RTC FREQUENCY OR l'RTC 

/ SLU FREQUENCY CHECK = SLU BAUD RATES 

/BIT 6 REAL TIME CLOCK l.OFF 

/ = ON 

/BIT 7 SLU E I A/20MA SELECT l.EU RECEIVE DATA 

/ = 20 MA RECEIVE DATA 

/BIT 5 STOP BIT SELECT 1.1 STOP BITS 

/ = 2 STOP BIT 

/BIT 9 BAUD RATE SELECT BIT 9, 18, 11 ALL 0'S 

/BIT IB BAUD RATE SELECT EQUALS 110 BAUO, EACH 

/BIT 11 BAUD RATE SELECT INCREASING BIT SELECTS 



/DKC8.AA OPTION TEST 1 M*INOEC"0S-OJDKA.B*L IK PART 1 PALI" V14ZA 16-JUN.75 9|00 PAGE 2.2 

/ NEXT HIGHEST BAUD RATE', 



0000 £302 302 /PROGRAM REVISION LETTER.MA I NOEC-0S.QJOKA.8 

0001 6244 RMF /RESTORE MEMORY FIELDS 

0002 3403 JMP I 3 /RETURN TO INTERRUPT SERVICE ROUTINE 

0003 1244 SJMJNT/SKPCHN/SIMCHK/RTCINT/SLUINT /INTERRUPT SERVICE ROUTINES 

3020 «20 

0020 3000 SWITCH, 

0021 3000 OPISELi 2000 

/BIT 0=0 USE LOCATION 20 AS A PSEUDO SWITCH REGISTER 

/BIT 0»1 USE HARDWARE FRONT PANEL SWITCH REGISTER 

/BIT la], HAS OPTION 1 

/BIT 2.1 HAS OPTION 2 

/BIT 3.1 HAS 8A CPU SIMULATOR 

/BIT 4.1 HAS SA OPTION 1*8 SIMULATOR 

/BIT 5=1 PROGRAM ON PDP-8A XOR(«EOU!RES BIT 4 SET ALSO) 
/BIT 6«1 HAS PDP-SE TYPE CPU 

/B I T 7.11 MEMORY SIZE . 0<S.1K, S7-32K', MEMORY 
/SIZE CAN BE INCREASED IN IK INCREMENTS BY ADDING 
/ONE TO THE NUMBER IN BITS 7 . 11 

0022 3000 OP2SEL, /BIT IS SET FOR THE ACT LINE 

4423 LOOPPC'JMS I, 

0023 1200 PCLOOP 

4424 DONIOP.JMS I, 

0024 1221 LOPDON 
4435 CLSKHT=JMS !, 

0025 1333 WTCLSK 

4426 PIOD«T=JMS I, 

0026 1600 DATPIO 

4427 ERRQR.JMS [, 

0027 1475 AERROR 

4430 PIDDER.JMS I, 

0030 1711 OERPIO 

4431 TSFWAT'JMS I, 

0031 1331 WATTSF 

4432 XSFWAT'JMS I, 

0032 1342 WATKSF 

4433 SLUOAT=JMS I, 

0033 1653 DATSLU 

4434 SLUUER.JMS I, 

0034 1734 DERSLU 

4435 SWHCHK=JMS I, 

0035 1437 CHKSWH 

4436 SJMCHK=JMS I, 

0036 1761 CHKSIM 

4437 LOOSIM'JMS I ', 

0037 1214 SIMLOD 



4145 RTCENA»JMS ENARTC 



/DKC8.AA OPTION TEST 1 MA I N0EC.8 S.DJDKA»B,L' IK CART t PAL'10 V3.42A 16.JUN.7I 



9100 CASE 2.3 



0240 1403 



PROEND.JMP I , 

ENDPAS 







/LOCATIONS U 


3041 


3000 


T "J T F I r. . 
lit i r LWi 


_ 


0042 


0000 


CLKFLG i 





0043 


3330 


CNT t 




0244 


3000 




3 


0045 


3030 


TrST ' 




0046 


3030 


* 

TSTLOP i 





0047 


5000 


TSTCNTi 


3 


0050 


0000 


SAVCNT, 





0051 


3000 


PIOXMTi 





0053 


3000 


PIORECi 




0053 


0000 


SLUXMT, 







3000 


SLURECi 


3 


0055 


£1030 


CQNTWD, 


3 


3056 


3377 


K377 1 


377 


0057 


3230 


K200i 


203 


006? 


3232 


K252, 


252 


3061 


3125 


K12S, 


125 


3062 


5252 


K5252, 


5252 


0063 


2525 


K2525, 


2525 


0064 


3007 


K7, 


7 


0065 


7774 


M4 1 


-4 


0066 


7770 


M10 , 


"13 


0067 


3000 


SIMONT, 


3 


007? 


3000 


EXPACD, 





0071 


3030 


LINK, 





0072 


3030 


XMTFLG, 


3 


0073 


3000 


RECFLG, 


3 


0074 


3030 


RTCFLG, 





0075 


"000 


PNOINT, 


3 


0076 


1000 


INACTV, 


3 


0077 


6520 


BA0PAS, 


6520 


3130 


6530 


GOOUPS, 


6500 


3101 


7634 


ACTCNT , 


-144 


0102 


7634 


1144, 


-144 



/ACT LINE EHROR RETURN TO FIELD 7 
/ACT LINE GOOD RETURN TO FIELD 7 



/ROUTINE TO SETUP FIELD 3 TO HANDLE INTERRUPTS F PQ M ANOTHER FIELD 



0103 3000 PATOHi 7 

0104 1533 TAD ! PATCH 

0135 31J3 DCA SAVADD 

0136 6201 CDF 

0137 1130 TAD KRMF 

0110 3524 DCA I Kl 

0111 1127 TAD KJMP 

0112 3525 DCA I K2 

0113 1123 TAD SAVADD 



/GET THE INTERRUPT SERVICE ADDRESS 
/SAVE INTERRUPT ADDRESS 
/CHANGE DATA FIELD TO FIELD 
/SET THE INSTRUCTION RMF 
/PUT IT IN LOCATION l OF FIELD 
/GET THE INSTRUCTION JMP 1 3 
/PUT IT IN LOCATION 2 OF FIELD 
/GET THE INTERRUPT SERVICE ADDRESS 



/DKC8-AA OPTION TEST i M A I NOEC.BS.O JDK A-B-L IK PART 1 PAl'10 V1 4Z A 16-JUN.73 



9100 PAGE 2.4 



0114 


3526 




DCA I 


K3 


0115 


6224 




R I F 




0116 


1131 




TAD 


KCDF 


0117 


3120 




OCA 


,+1 


0120 


7432 




HLT/CDF 


0121 


2103 




!S2 


PATCH 


0122 


5503 




JMP I 


PATCH 


0123 


3000 


SAVADD, 







0124 


0001 


Kl, 


1 




0125 


0002 


K2i 


2 




0126 


3003 


K3, 


3 




0127 


5433 


KJMP, 


JMP I 


3 


0130 


6244 


KRMF, 


6244 




0131 


6231 


KCDF, 


CDF 




0132 


6035 


KRTF, 


RTF 




0133 


3000 


ACTFLG, 


3 




0134 


3000 


CLKSNC, 








/PUT IT IN LOCATION 3 IF FIELD 
/GET THE PROGRAM FIELD INTO THE AC 
/AND IT TO THE CDF INSTRUCTION 
/PUT IT IN THE NEXT LOCATION 
/EXECUTE IT 

/ADD 1 TO THE ENTRANCE 
/RETUHN 



3135 3000 

0136 1022 

3137 7730 

3140 5535 

3141 6002 

0142 6272 

0143 4500 
3144 5535 



/THIS ROUTINE USfD WHEN RUNNING ON THE ACT LINE To SIGNIFY THAT NO 
/ERRORS HAVE BEEN ENCOUNTERED 

TSTGOO, 



TAD 
SMA 
JMP 
IOF 
CIF 
JMS 
JMP 



0P2SEL 
OLA 

TSTGOD 
70 

GOODPS 
TSTGOD 



/GET THE HARDWARE FLAG 

/ARE WE ON THE ACT LINE? 

/NO, RETURN TO THE PROGRAM 

/TURN THE INTERRUPT OFF 

/CHANGE THE INSTRUCTION To FIELD 7 

/GO TO PRO" 

/RETUHN TO THE PROGRAM 



0145 3000 ENAHTCi 

3146 1022 TAD 0P2SEL 

0147 7710 K7713, SPA CLA 

0153 7301 CLA CLL IAC 

0151 6135 CLLE 

3152 7200 CLA 

0153 5545 JMP I ENARTC 

3233 «JOU 



/CHECK TO SEE IF ON ACT LINE 
/IF NOT CLEAR RTC INT ENA 
/SET AC BIT U 

/LOAD BIT il INTO CLOCK INT ENA 



»»•»»»» »*#**«•*»» 

/INITIALISATION TEST 

/TEST 1 - CHECKS THAT INITIALIZE WILL CLEAR ALL FLAGS, ANY ERROR MAYBE DuE TO A 
/FLAG STUCK ON OR THE IOT SKIPPED, THE PARALLEL I/O SUFFER IS CHECKED TO CONTAIN 
/HEROES, HOWEVER, THE READ COMMAND (6372) MAY NOT WORK, THE TEST WAITS FOR THE 
/RTC FLAG TO SET AND CHECKS THE FLAG TO SKIP, NO INTERRUPTS SHOULD OCCUR , 
/NOTE I INITIALIZE SETS THE SERIAL LINE UNIT'S INTERRUPT ENABLE, 



0200 6160 TESTli SI*CLR 



/0KC8»*» OPTION TEST 1 MAINOEB.Bb-IUDKA.b.l' IK PART 1 PAH0 V1 4 2a 1S-JUN.7J 5100 »ASE 



02551 


4103 


JMS PATCH 


0202 


1244 


5 1 MINT 


0203 


4423 


LOOPPC 


0284 


7777 


"1 


0203 


4436 


S J MCMK 


0236 


4000 


4000 


0207 


4437 


LOOS t M 


0213 


3041 




0211 


6007 


CAP 


0212 


6001 


IQN 


8213 


6031 


KSF 


0214 


7410 


SKP 


0215 


4427 


£RRQR 


0216 


6041 


tsp 


0217 


7410 


SKP 


0220 


4427 


ERROR 


0221 


6045 


SP ! 


0222 


7410 


SKP 


0223 


4427 


ERRO" 


0224 


6571 


DBSK 


0225 


7410 


SKP 


0226 


4427 


ERROR 


0227 


6570 


OBST 


0233 


7410 


SKP 


0231 


4427 


ERROR 


0232 


7240 


C|„A CMA 


0233 


6572 


□ BHD 


0234 


7410 


SKP 








0236 


7640 


SZA C|_A 


0237 


4427 


ERROR 


0240 


4425 


CL5KWJ 


0241 


4427 


ERROR 


0242 


1041 


TAD INTFLG 


0243 


7640 


52 A CL.A 


0244 


4427 


error 


0245 


4424 





/SETUP INTERRUPT SERVICE 

/STORE THE LOOPINC PC AND SETUP TEST COUNT 
/SETUP SIMULATOR ITERATION COUNTER 
/CHECK FOR SIMULATOR 
/CONTROL WOHO FOR SIMULATOR 
/LOAD SIMULATUR.TEST L00» USINS SIMULATOR 
/CLEAR PROGRAM INTERRUPT FLAG 

/INITIALISE THE MODULE « CAP SETS INT ENA ON SLU 
/TURN THE INTERRUPT ON 
/SKIP ON RECEIVE FLAG 

/RECEIVE FLAG SET OR KSF SKIPPED 
/SKIP ON TRANSMIT FLAG 

/TRANSMIT FLAG SET OR TSP SKIPPED 
/SKIP ON XMJT/RECEIVE * INT ENA 

/0 SIDE OF XMJT/REQEIVE "ELO LOW OR SPt SKIPPEO 
/SKIP ON DATA READY FLAG 

/DATA REAOV FLAG SET OR DBSK SKIPPED 
/SKIP ON DATA ACCEPTED i IT AND DATA AVAILABLE 

/DBST SKIPPED OR DATA ACCEPTED SET 
/SET THE AC TO ALL ONES 
/READ THE 12 BIT PARALLEL I/O BUFFER 

/DBRD SKIPPED 

/CAF FAILED TO CLEAR XMIT BUFFER OR DBRD FAILED', 
/WAIT FOR REAL TIME CLOCK FLAG TO SET 
/CLOCK FLAG FAILED TO SET WITHIN A I SZ LOOP 
/DID THE PROGHAM INTERRUPT 

/PROGRAM INTERRUPTED ■ ALL FLAGS ZERO EXCEPT CLK FLG 
/CHECK TO SEE IF DONE, OR LOOP ON TEST IF SR2 = 1 

.«.»».*. 

//first section of the Real time lock diagnostic 

/TEST 2 . CHECKS THAT KLKL TICK WILL SET CLK FLAG AND THAT OAF WILL CLEAR IT, THE 
/PROGRAM IS CHECKED NOT TO TO INTERRUPT, 

/• • < 



0246 AIM 

0247 1252 

0250 7240 

0251 3042 

0252 4423 

0253 7777 

0254 4436 

0255 4000 

0256 4437 



TEST2, 



JMS PATCH 
SKRCHN 
CLA CMA 
OCA CLKFLG 
LOOPPC 
■1 

SIMCHK 

4000 

LOOSIM 



/SETUP INTERRUPT SERVICE 



/SET INTERRUPT CHAIN TO ACKNOWLEDGE CLOCK INTERRUPTS, 

/SETUP TEST COUNT AND SCOPE LOOPING ADDRESS 

/SIMULATOR ITERATION COUNTER 

/CHECK TO SEE IF SIMULATOR IS SELECTED 

/CONTROL WORD FOR THE SIMULATOR 

/LOAD SIMULATOR IF SELECTED ALSO SET SCOPE 

/LOOP » THIS ADDRESS IF SIMULATOR SELECTED 

/OTHERWISE SCOPE LOOP IS THIS ADDRESS ♦ ! 



/DKCB.AA OPTION TEST t MA1NQEC"0S"DJDKA*B»L jK PART i PALl? V142A 16-JUN-75 9100 PAGE 2-6 



0257 


7344 


CLA CLL CMA 


PAL /SETUP A PROGRAM LOOP TO LDOK AT 2 CLOCK FLAGS 


0260 


3134 


OCA CLKSNC 


/TO SYNC THE REAL TIME CLOCK 


0261 


3041 


OCA INTFLG 


/CLEAR PROGHAM INTERRUPT FLAG 


0262 


6007 


CAF 


/CLEAR ALL FLAGS BUT SET INT ENA ON SLU 


0263 


6001 


ION 


/TURN THE INTERRUPT ON 


0264 


4425 


CLSKWT 


/WAIT FOR THE CLOCK FLAG TO SET 


0265 


4427 


ERROR 


/CLK FLAG FAILED TO SET OR NO KLKL TICK PULSE 


0266 


10«1 


TAD INTFLG 


/GET THE PROGHAM INTERRUPT FLAG 


0267 


7640 


SZA CLA 


/DID IT INTERRUPT? 


0270 


4427 


ERROR 


/PROGRAM INTERRUPTED WITHOUT CLK INT ENA 


0271 


2134 


IS? CLKSNC 


/2ND FLAG SET? 


0272 


5261 


JMP ,.11 


/NO, GO AND TRY TO CLEAR CLK FLAG WITH CAF 


0273 


6007 


CAF 


/CLEAR ALL FLAGS BUT SET SLU'S I NT ENA 


0274 


6001 


ION 


/TURN THE INTERRUPT BACK ON 


0275 


6137 


CLSK 


/SKIP ON THE CLOCK FLAG 


0276 


7610 


SKP CL* 




0277 


4427 


ERROR 


/CAF FAILED TQ CLEAR CLK FLAG OR CLSK SKIPPED, 


0300 


1041 


TAD INTFLG 


/GET THE PROGHAM INTERRUPT FLAG 


0301 


7640 


SZA CLA 




0302 


4427 


ERROR 


/PROGRAM INTERRUPTED WITHOUT CLK INT ENA ♦ CLK FLAG 


0303 


4424 


DONLOP 


/REPEAT TEST IF NOT DONE OR LOOP ON TEST IF SR2.1 



/TEST 3 . CHECKS THAT KLKL TI C K WILL SET cLK FLAG AND THAT IT CAN B£ CLEARED BY cLcL. 
/THE CLK FLAG IS CHECKED NOT TO CAUSE AN INTERRUPT, 



0334 4423 

0305 7777 

0306 4436 

0307 4000 
0310 4437 



0311 7344 

0312 3134 

0313 3041 

0314 6007 

0315 6001 
3316 4425 
0317 4427 
0320 1041 
3321 7640 

0322 4477 

0323 S134 

0324 ^313 

0325 6136 

0326 7610 

0327 4427 

0330 6137 

0331 7610 

0332 4427 

0333 1041 

0334 7640 

0335 4427 



•r.s-3, 



LOOPPC 

-1 

SIMCHK 

4000 

LOOSIM 



CLA CLL CMA 
OCA CLKSMC 
OCA INTFLG 
CAF 
ION 

CLSKWT 
ERROR 

TAD INTFLG 

SZA CLA 

ERROR 

! SZ CLKSNC 

JMP ,.11 

CLCL 

SKP CLA 

ERROR 

CLSK 

SKP CLA 

ERROR 

TAD INTFLG 
SZA CLA 
ERROR 



/SETUP TEST COUNT AND SCOPE LOOPING ADDRESS 
/SIMULATOR ITERATION COUNTER 
/CHECK TO SEE IF SIMULATOR IS SELECTED 
/CONTROL WORD FOR THE SIMULATOR 
/LOAD SIMULATOR IF SELECTED ALSO SET SCOPE 
/LOOP * THIS ADDRESS IP SIMULATOR SELECTED 
/OTHERWISE SCOPE LOOP IS THIS ADDRESS *1 
RAL /SETUP A PROGRAM LOOP To LOOK AT 2 CLK FLAGS TO 
/SYNC THE REAL TIME CLOCK 
/CLEAR PROGRAM INTERRUPT FLAG 
/CLEAR ALL FLAGS BUT SET I NT ENA ON SLU 
/TURN INTERRUPT ON 
/WAIT FOR CLK FLAG 
/CLOCK FLAG FAILED TO SET 
/GET THE PROGHAM INTERRUPT FLAG 
/DID IT INTLRHUPT 

/PROGRAM INTERRUPTED WITH CLK INT ENA, 
/2N0 FLAG SET? 

/NO, GO CLEAR THE FLAG WITH CAF AND WAIT FOR NEXT ONE 
/CLEAR THE CLK FLAG 

/CLCL SKIPPEO 
/SKIP ON CLOCK FLAG 

/CLCL FAILED TO CLEAR CLK FLAG 
/GET THE PROGRAM INTERRUPT FLAG 
/DID THE PROGHAM INTERRUPT! 

/PROGRAM INTERRUPTED, COULD RE CLCL SHORTED TO CLLE 



/DKCS8**A OPTION TEST 
3336 4424 



0337 
0340 
0341 
0342 
0343 



0344 

0345 

0346 

0347 

0332 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0363 

0361 

0362 

0363 

0364 

0365 

0366 

0367 

0370 

0371 

0372 

0373 

0371 

0373 

0376 

0377 

0400 

0401 

0402 

0403 

0404 

0405 

0406 

0407 

04i0 

0411 

0412 



1 MAINUES«0«»DJOKA-B-l IK PART 1 PAL10 V142A 16-JUN-75 9|«I PACE 2-7 

"ONLOP /REPEAT TEST |F NOT DONE OR LOOP ON TEST IP SR2«1 

/•»••»•••••»••••«•«»••«»»«#»«•#«.»».,«. «,.»»««»«»«,,„»»„»»,,, ,,,„„, 

/TEST 4 . CHECK THAT CLK I NT ENA CAN BE S£T AND CLEARED SY DATA BIT 11 
/AND CLLE USING THE CLK FLAG TO INTERRUPT ON " ' 1 



4423 
7777 
4436 



7344 

3134 

3041 

6007 

6001 

4425 

4427 

1041 

7640 

4427 

2134 

5346 

6136 

6137 

7610 

4427 

7301 

6135 

7610 

4427 

1041 

7640 

4427 

4425 

4427 

2041 

4427 

3041 

6135 

6001 

7300 

1041 

7640 

4427 

6136 

6137 

7610 

4427 

4424 



TE5T4, LOOPPC 
•1 

SIMCHK 

4000 

LODSIM 



CLA CLL CMA 
OCA CLKSNC 
nCA INTF'LG 
CAF 
ION 

CLSKWT 
ERROR 

TAO INTFLC 
SZA CLA 
ERROR 

ISZ CLKSNC 

JMP ,.11 

CLCL 

CLSK 

SKP CLA 

ERROR 

OLA CLL IAC 
CLLE 
SKP CLA 
ERROR 

TAD INTFLG 
SZA CLA 
ERROR 
CLSKWT 
XORE'JA , ERROP 

ISZ INTFLG 
ERROR 

OCA INTFLG 

CLLE 

ION 

CLA CLL 
TAD INTFLG 
SZA CLA 
ERROR 
' CLCL 
CLSK 
SKP CLA 
ERROR 
DONLOP 



/SETUP TEST COUNT AND SCOPE LOOPING ADDRESS 
/SIMULATOR ITERATION COUNTER 
/CHECK TO SEE IF SIMULATOR IS SELECTED 
/CONTROL WORD FOR THE SIMULATOR 
/LOAD SIMULATOR IF SELECTED ALSO SET SCOPE 
/LOOP . THIS AODRESS IF SIMULATOR SELECTED 
/OTHERWISE SCOPE LOOP IS THIS ADDRESS *1 
RAL /SETUP A PROGRAM LOOP TO LOOK AT 2 CLK FLAGS 
/TO SYNC UP THE REAL TIME CLOCK 
/CLEAR PROGRAM INTERRUPT FLAG 
/CLEAR ALL FLAGS BUT SET INT ENA ON SLU 
/TURN THE INTERRUPT ON 
/WAIT FOR THE CLK FLAG 
/CLK FLAG FAILED TO SET 
/GET THE PROGRAM INTERRUPT FLAG 
/DID THE PROGRAM INTERRUPT? 
/FLAG INTERRUPTED WITHOUT CLK I NT EN* 
/2ND FLAG SET7 

/NO, GO CLEAR FLAG WITH CAP AND WAIT FOR NEXT FLAG 
/CLEAR THE CLOCK FLAG 
/SKIP ON CLOCK FLAG 

/CLCL FAILED TO CLEAR CLK FLAG 
/SET DATA BIT 11 TO A ONE 
/TRY AND SET CLK I NT ENA 

/CLLE SKIPPED, 

/GET THE PROGRAM I NTERRU°T FLAG 

/PROGRAM INTERRUPTED WITHOUT CLK FLAG SET 
/WAIT FOR NEXT CLK FLAQ 
/CLK FLAG FAILED TO SET 
/DID THE PROGRAM INTERRU»T 

/CLLE FAILED TO SET CLK INT ENA OR FA I LED TO I NT 

/CLEAR THE PROGRAM INTERRUPT FLAG 

/CLEAR CLK INT ENA 

/TURN THE INTERRUPT ON 

/ 

/GET THE PROGRAM INTERRUPT FLAG 
/DID IT INTERRUPT? 

/YES, CLLE FAILED TO CLEAR CLK I NT ENA 
/CLEAR THE CLOCK FLAG 
/SKIP ON CLOCK FLAG 

/ERROR CLCL FAILED TO CLEAR CLOCK FLAG 

/REPEAT TEST IF NOT DONE OR LOOP ON TEST IF SR2 = 1 



/DKC8.AA OPTION TEST 1 mAiNOEC-08.D,jDkA-8»L IK PART 1 PALI? V142A 16.JUN-73 



9100 PAGE 2.8 



0413 
0414 
0415 
0416 
0417 



3420 
0421 
0422 
0423 
0424 
0425 
0426 
0427 
0430 
0431 
0432 
0433 
0434 
0435 
0436 
0437 
0440 
0441 
0442 
0443 
0444 
0445 
0446 
0447 
0450 
0451 



0432 
0433 
0454 
0455 
0456 



4423 
7777 
4436 
4000 
4437 



7344 
3134 
3041 
6007 
6001 
4425 
4427 
1041 
7640 
4427 
2134 
3222 
7301 
6135 
7300 
2041 
4427 
6307 
6001 
4425 
4427 
1041 
7640 
4427 
6136 
4424 



4423 
7777 
4436 
4000 
4437 



0457 
04S0 
0461 

0462 6135 

0463 1125 



6007 
6001 
7344 



/#«#***»•#»#***####»#*##*«**«**#♦*»•»**•*»****«*******•*»*»*»»**»****• 

/TEST 5 . CHECKS THAT CLK I NT ENA CAN BE SET AND THAT CAP WILL CLEAR IT 
/USING THE CLK FLAG TO INTERRUPT ON, 

/##***«*«»»»»*»«»#«*»»»#»##**###*»*»»»»«*»»*«*«*»»*****«****«»»» ,, **»*»* 



TEST5, 



LOOPPC 
•1 

SIMCHK 

4000 

LOOSIH 



CLA CLL CMA 
OCA CLKSNC 
OCA INTFLG 
CAF 
ION 

CLSKWT 
ERROR 

TAD INTFLG 
SZA CLA 
ERROR 

ISZ CLKSNC 
JMP ,.11 
CLA CLL IAC 
CLLE 

CLA CLL 

ISZ INTFLG 

ERROR 

CAF 

ION 

CLSKWT 
ERROR 

TAD INTFLG 
SZA CLA 
ERROR 
CLCL 
OONLOP 



/SETUP TEST COUNT AND SCOPE LOOPING ADDRESS 
/SIMULATOR ITERATION COUNTER 
/CHECK TO SEE IF SIMULATOR IS SELECTED 
/CONTROL WORD FOR THE SIMULATOR 
/LOAD SIMULATOR IF SELECTED ALSO SET SCOPE 
/LOOP ■ THIS ADDRESS IF SIMULATOR SELECTED 
/OTHERWISE SCOPE LOOP IS THIS ADDRESS *1 
RAL /SETUP A PROGRAM LOOP TO LOOK AT 2 CLOCK FLAGS 
/TO SYNC UP THE REAL TIME CLOCK 
/CLEAR PROGRAM INTERRUPT FLAG 
/CLEAR ALL FLAGS AND SET INT ENA ON SLU 
/TURN THE INTERRUPT ON 
/WAIT FOR THE CLOCK FLAG 
/CLK FLAG FAILED TO SET 
/GET THE PROGRAM INTERRUPT FLAG 

/PROGRAM INTERRUPTED WITHOUT CLK I NT ENA 
/2ND FLAG SET? 

/NO, GO CLEAR FLAG AND WAIT FOR NEXT 

/SET INTERRUPT INABLE TO A ONE 
/SHOULD INTERRUPT HERE 
/DID THE PROGRAM INTERRUPT 

/PROGRAM FAILED TO INTERRUPT WITH CLK FLAG * CLK INT ENA 
/CLEAR ALL FLAGS 

/WAIT FOP CLK FLAG 

/CLK FLAG FA I LEU TO RESET 

/GET THE PROGRAM INTERRUPT FLAG 

/DID IT INTERRUPT 

/CAF FAILED TO CLEAR CLK INT ENA 
/CLEAR THE CLOCK FLAG 

/REPEAT TEST IF MOT DONE OR LOOP ON TEST IF SR2=1 



/Test 6 - checks that the three RTc iot's don<t effect the ac 
/.»•••»»»»«•••••.••«•«»•«»«•••#•••••»*«••»••••»»»•»«•••••»•*••••••»••' 



tests, 



LOOPPC 
•1 

SIMCHK 

4000 

LODSIM 



CAF 

ION 

CLA CLL CMA RAL 

CLLE 

TAO K2 



/STORE THE TEST LOOPING PC 

/SIMULATOR ITERATION COUNTER 

/CHECK TO SEE IF SIMULATOR IS SELECTED 

/CONTROL WORD FOR THE SIMULATOR 

/LOAD SIMULATOR IF SELECTED ALSO SET SCOPE 

/LOOP « THIS ADDRESS IF SIMULATOR SELECTED 

/OTHERWISE SCOPE LOOP IS THIS ADDRESS *1 



/CLEAR CLK I NT EANBLE 



/DKCb»AA OPTION TEST 1 »»PBEC»f|»OJ°K».B«l IK PART i PALIS U«A l6«JUN-7» 9|M »ASE !.» 



0464 7640 

0465 4497 

0466 7240 

0467 6136 

0470 7001 

0471 7640 

0472 4427 

0473 7240 

0474 6137 

0475 7000 

0476 7031 

0477 7640 

0500 4427 

0501 4424 

0502 4135 



SZA CUA 
ERROR 
CUA CMA 
CLCL 
IAC 

SiA CLA 

ERROR 

CIA CMA 

CISK 

NOP 

IAC 

SZA CLA 
ERROR 
DONLOP 
JMS 



TSTOOO 



/CUE CHANGED THE AO 
/CLEAR CLOCK FLAG 

/CLCL CHANGED THE AC 
/SKIP ON CLOCK FLAG 



/CLSK CHANGED THE AC 

/CHECK TO SEE IF DONE OR LOOP ON TEST , 
/GO CHECK FOR THE ACT LINE 



/»»«••«•••§•••••«••«»•••••••««•••«*•»«•«•«••»•»•«•»««*•»••#•••*••«••»• 

/FIRST SECTION OF The 12 BIT PARALLEL I/O DIAGNOSTIC TESTS 

/THE PARALLEL I/O HUST SE CONNECTED IN LOOP BACK MODE (13 SIT DATA OUT 

/TO 12 SIT DATA IN, DATA AVAILABLE TO SET DATA READY j ANB DATA ACCEPTED 

/OUT TO DATA ACCEPTED INI, THE SWITCH FOR TSt TO CLEAR OATA AVAILABLE SHOULD 

/BE LEFT OFF TO RUN THIS SECTION OF THE PROGRAM , 



/•*«»»»•«*»»«»»»••»••#»»«•«•»*#•«*»»«*•«»**««••*••«•»•»»•«»»»«««••»«»* 

/TEST 7 - CHECKS THE DATA ACCEPTED AND THE DATA READY 'LIP. FLOPS TO BE 
/ZERO FOLLOWING » OAF, THE PROGRAM ISSUES THE IOT DBCF TO CLEAR THE SAT* 
/READY FLAG AND TO SET THE DATA ACCEPTED F/F, THE IOT OBST IS THEN 
/ISSUED TO CHECK THAT IT HILL SKIP ON DATA ACCEPTED F/F AND THEN RE- 
/ISSUED TO CHECK THAT THE FIRST DSST CLEARED DATA ACCEPTED', 



0503 4103 

0504 1252 
0535 4423 
0936 7777 
0507 4436 
051Z 4000 
0511 4437 



0512 
0513 



6007 
4145 



0514 3041 

0515 3042 

0516 6001 

0517 4571 

0520 7640 

0521 4427 

0522 6570 

0523 7640 

0524 4427 

0525 1041 



TEST7 j JMS PATCH 
SKPCHN 
LOOPPC 
-1 

SJMCHK 

4000 

LOOSIM 



CAF 

RTCENA 

OCA 

OCA 

ION 

OBSK 

SZA 

ERROR 

OBST 

SZA 

ERROR 



INTFLG 
CLKFLG 



CLA 



CLA 



INTFLG 



/SETUP TEST COUNT AND TEST LOOPING ADDRESS 
/SIMULATOR ITERATION COUNTER 
/CHECK TO SEE IF SIMULATOR IS SELECTED 
/SIMULATOR CONTROL WORD 

/LOAD SIMULATOR IF SELECTED ALSO SET SCOPE LOOP 

/EOUAL THIS ADDRESS IF SELECTED OTHERWISE 

/SET IT TO THE NEXT ADDRESS 

/CLEAR ALL FLAGS 

/SET REAL TIME CLOCK INT ENA 

/CLEAR PROGRAM INTERRUPT FLAO 

/SET INTERRUPT SERVICE TO IGNORE CLOCK FLAG 

/TURN THE INTERRUPT ON 

/SKIP ON THE DATA READY FLAG 

/CHECK THAT OBSK OIDNlT READ ANYTHIN9 INTO AC 
/INIT FAILED TO DATA REAOY,D8SK SKIPPED OR 
/READ SOMETHING INTO THE AC 

/SKIP ON DATA ACCEPTED , t OATA ACCEPTED AND DATA AVAILABLE 

/INIT FAILED TO DATA ACOEPTEOi DSST SKIPPED OR 
/DBST READ SOMETHING INTO THE AC 
/GET THE PROGRAM INTERRUPT FLAO 



/DKC8«AA OPTION TEST i MA1NDEC-08-.OJDKA-B-L lK PART i PAL13 Vj,42A 16-JUN-79 9100 PAGE 2-10 



0526 


7640 


SZA 


CLA 




0527 


4427 


ERROR 




/PROGRAM INTERRUPTED WITHOUT INT ENA AND FLAG SET 


0530 


6573 


OBCF 




/CLEAR DATA READY SET DATA ACCEPTED 


0531 


7640 


SZA 


CLA 




0532 


4427 


ERROR 




/DBCF SKIPPED OR READ SOMETHING INTO AC 


0533 


6571 


OBSK 




/SKIP ON DATA READY . 


0534 


7610 


SKP 


CLA 




0535 


4427 


ERROR 




/DATA READY FLAG GOT SET BY DBST OR DBCF 


0536 


6570 


DBST 




/SKIP ON DATA ACCEPTED AMD CLEAR IT 


0537 


4427 


ERROR 




/DATA ACCEPTED NOT SET OR OBST FAILED TO SKIP 


0540 


6570 


DBST 




/SKIP ON DATA ACCEPTED TO CHECK THAT IT CLEARED 


0541 


7610 


SKP 


CLA 




0542 


4427 


ERROR 




/DSST AND TP4 FAILED TO CLEAR DATA ACCEPTED F/F 


0543 


1041 


TAO 


INTFLG 


/GET THE PROGRAM INTERRUPT FLAO 


0544 


7640 


SZA 


CLA 




0545 


4427 


ERROR 




/PROGRAM INTERRUPTED WITHOUT I NT ENA SET 


0546 


4424 


DONLOP 




/REPEAT TEST IF SR EOUAL TO 1000 



/ • « ••*• « • •» 

/test s . checks that the qata reaoy flag c-an b e set an d cleared, to 
/set the data ready flag, the program issues the iot dbto to transmit 
/and set data available f/f , the setting of data available f/f in loop 
/back mode sets the data ready f/f', the iot dbsk is then issued to 
/check that the flag is set and that the iot will skip", the program 
/then clears the oata ready flag with dbcf which also sets data accepted , 
/the data ready plag is checked to be cleared by issuing a disk and 
/data accepteo f/f is checked to be set by issuing a dbst', the data 
/accept f/f is checked again to be cleared by issuing another dbst', 

/*«»«»»»*»•»»*•*»«*•«•»##«»«»»«•««•«•**»»*•«»*««»««»»#»•••*«*»*»**••»« 



0547 4423 

055? 7777 

0551 4436 

0552 4000 

0553 4437 



0554 6007 

0555 4145 

0556 3041 

0557 6001 

0560 6571 

0561 7610 

0562 4427 

0563 6570 

0564 7610 

0565 4427 

0566 6574 

0567 7640 

0570 4427 

0571 6571 

0572 4427 

0573 6570 

0574 7610 

0575 4427 



TESTS, LOOPPC 
-1 

SIMCHK 

4000 

LODSIM 



CAF 

RTCENA 

DCA 

ION 

OBSK 

SKP 

ERROR 

OBST 

SKP 

ERROR 

OBTD 

SZA 

ERROR 

OBSK 

ERROR 

DBST 

SKP 

ERROR 



INTFLG 



OLA 



CLA 



CLA 



/SETUP TEST COUNT AND TEST LOOPING ADDRESS 
/SIMULATOR ITERATION COUNTER 
/CHECK TO SEE IF THE SIMULATOR IS SELECTED 
/SIMULATOR CONTROL WORD 

/LOAD SIMULATOR IF SELECTED, ALSO SET SCOPE 

/LOOP ■ THIS ADDRESS IF SELECTED OTHERWISE 

/SCOPE LOOP WILL BE NEXT AODRESS', 

/CLEAR ALL FLAGS 

/SET REAL TIME CLOCK I NT ENA 

/CLEAR PROGRAM INTERRUPT FLAG 

/TURN THE INTERRUPT ON 

/SKIP ON DATA READY FLAG 

/DATA READY FLAG SET OR OBSK SKIPPED 

/SKIP ON DATA ACCEPTED, OATA ACCEPTED AND DATA AVAILABLE 

/DATA ACCEPTED SET OR DBST SKIPPED 

/TRANSMIT AND SET DATA AVAILABLE AND DATA READY 

/CHECK THAT DBTD DIDN'T READ ANYTHING INTO AC 

/OBTD SKIPPED 

/SKIP ON DATA READY FLAG 

/DBTD FAILED TO SET DATA REAOY FLAG 

/SKIP ON DATA ACCEPTED, 71 DATA AVAILABLE AND DATA ACCEPTED 
/DATA ACCEPTED SET BEFORE OBCF WAS ISSUED 



/DKCa-AA OPTION TEST 1 M*[NOCO.0B.OJDK»-B,t IK PART 1 PAL10 V142A U.JUN-75 



9|BB 



0576 
0577 
0600 
3601 
0602 

8604 
0605 
0606 
0607 
Hill 
0611 

0612 
0613 
0614 
0615 
0616 
0617 



6571 
4427 
12141 
7640 
4427 
6573 
6571 
7410 
4427 
6570 
4427 
6570 
7410 
4427 
1041 
7640 
4427 
4424 
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0620 4423 

0621 7777 

0622 4436 

0623 40||0 
3624 4437 



0625 
0626 
0627 
0630 
0631 
0632 
0633 
0634 
0635 
0636 
0637 
0640 
0641 
0642 
0643 
0644 
0645 
0646 
0647 
0650 



6007 
4145 
3041 
6001 
6574 
6571 
4427 
6570 
7410 
4427 
1041 
7640 
4427 
6007 
4145 
6571 
7610 
4427 
6001 
65?3 



0651 6007 

0652 4145 

0653 6001 



DBSK 
ERROR 
TAD 
SEA 
ERROR 
OBCF 
OBSK 
SKP 
ERROR 
9BST 
ERROR 
DBST 
SKP 
ERROR 
TAD 
SHA 
ERROR 
DONLDP 

/•»•••*»»»«»»»»«« 



I NTFLG 
CLA 



I NTFLG 
CLA 



/SKIP ON DATA REAOV 

/DATA REAOV FLAG CLEARED 

/GET THE PROGRAM INTERRUPT FLAG 

/PROGRAM INTERRUPTED WITHOUT SETTING INT ENA 
/CLEAR DATA READY SET DATA ACCEPTED 
/SKIP ON OATA READY 

/OBCF FAILED TO CLEAR DATA READY 
/SKIP ON DATA ACCEPTED and clear it AND DATA avail 
/OBCF FAILED TO SET DATA ACCEPTED OR DBST FAILED TO SKIP 
/SKIP ON DATA ACCEPTED 'Atuiu 10 M1P 

/THE FIRST DBST FAILED TO CLEAR DATA ACCEPTED 
/GET THE PROGRAM INTERRUPT FLAG 

/PROGRAM INTERRUPTED WITHOUT INT ENA SET 
/REPEAT TEST IF SR » 1800 



• .«»..««......,,.».»«»».»,»»,»»,,„,,,, 

/DATA ACC"EP C ?E E D CK F S LA T G U ^ " ,LL CLE * H ™ E D * TA rL * S M ° T « 

/••••»•»»»••»♦••»•»,...•„»..„»,.».„,„»„ 

TEST?, LOOPPC 
• 1 

SIMCHK 
4000 
LOOSIM 



CAF 

RTCENA 

OCA 

ION 

OBTO 

OBSK 

ERROR 

DBST 

SKP 

ERROR 

TAD 

SZA 

ERROR 

CAF 

RTCENa 

OBSK 

SKP 

ERROR 

ION 

OBCF 

CAF 

RTCENA 
I ON 



••»•....».........»,»,,.,,,, 

/SETUP TEST COUNT AND TEST LOOPING ADDRESS 
/SIMULATOR ITERATION COUNTER 
/CHECK TO SEE IF SIMULATOR IS SELECTED 
/SIMULATOR CONTROL WORD 

/LOAD SIMULATOR IF SELECTEO, ALSO SET SCOPE 
/LOOP EQUAL THIS ADDRESS IF SIMULATOR SELECTED 
/OTHERWISE SCOPE LOOP WILL BE NEXT ADORES 
/CLEAR ALL FLAGS 
/SET REAL TJME CLOCK INT ENA 
I NTFLG /CLEAR PROGRAM INTERRUPT FLAG 
/TURN THE INTERRUPT ON 
/TRANSMIT ANO SET OATA READY FLAG 
/SKIP ON DATA READY FLAG 
/DBTD FAILED TO SET DATA READY 
/SKIP ON DATA ACCEPTED AND CLEAR [T 

/DATA ACCEPTEU GOT SET BEFORE A OBCF WAS ISSUED 
/GET THE PROGRAM INTERRUPT FLAG 



I NTFLG 
CLA 



CLA 



/PROGRAM INTERRUPTED WITHOUT INT ENA SET 

/CLEAR DATA REAOY FLAG 

/SET REAL T I ME CLOCK INT ENA 

/SKIP ON OATA READY FLAG 

/JNIT FAILED TO CLEAR OATA READY FLAG 

/TURN THE INTERRUPT BACK ON 

/CLEAR DATA READY SET OATA ACCEPTEO 

/THE PROGRAM ASSUMES THAT DBCF SET DATA ACCEPTED 

/CLEAR DATA ACCEPTED 

/SET REAL TIME CLOCK INT ENA 

/TURN THE INTERRUPT ON 



/DKC8.AA OPTION TEST 1 MAINOEC.08.DJDKA-B.L t K PART t PAL l? Vj.42A t6.JUN.75 

/SKIP ON DATA ACCEPTED 



0654 6570 

0655 7640 

0656 4427 

0657 1041 

0660 7640 

0661 4427 

0662 4424 



5100 P A5E 2»12 



DBST 
SZA 
ERROR 
TAD 
SZA 
ERROR 
DONLOP 



CLA 

/INIT FAILED TO CLEAR DATA ACCEPTED 
INTFLG /GET THE PROGRAM INTERRUPT FLAG 
CLA 

/PROGRAM INTERRUPTED WITHOUT INT ENA SET 
/REPEAT TEST IF SR • 1000 



/•»•••••*»»•••»»..».,,,»„„„„„,„,»,, ...«,»»..,..»»».».,,,,».,. 

/TEiT 10 - CHECKS THAT INT ENA CAN BE SET AND CLEARED USING THE 
/DATA READY FLAG TO SKIP AND INTERRUPT ON, 



0663 4423 

0664 7777 

0665 4436 

0666 4000 

0667 4437 



TEST10, LOOPPC 
• 1 

SJMCHK 

4000 

LOOSIM 



0670 
0671 
0672 
0673 
0674 
0675 
0676 
0677 
0700 
0701 
0702 
0703 
0704 
0705 
0706 
0707 
0710 
0711 
0712 
0713 
0714 
0715 
0716 
0717 
0720 
0721 
0722 
0723 

0724 
0725 
0726 
0727 
0730 
0731 



6007 

4145 

3041 

6001 

6571 

7610 

4427 

6570 

7610 

4427 

1041 

7640 

4427 

6575 

7640 

4427 

1041 

7640 

4427 

6574 

6571 

4427 

2041 

4427 

S576 

7640 

4427 

6001 

6571 

4427 

1041 

7640 

4427 

6007 



CAF 




RTCENA 




DCA 


INTFLG 


ION 




OBSK 




SKP 


CLA 


ERROR 




DBST 




SKP 


CLA 


ERROR 




TAO 


INTFLG 


SZA 


CLA 


ERROR 




OBSE 




SZA 


CLA 


ERROR 




TAD 


INTFLG 


SZA 


CLA 


ERROR 




DBTD 




OBSK 




ERROR 




!SZ 


INTFLG 


ERROR 


DBCE 




SZA 


CLA 


ERROR 




I ON 




OBSK 




ERROR 




TAD 


INTFLG 


SZA 


CLA 


ERROR 




CAF 





/SETUP TEST COUNT AND TEST LOOPING ADDRESS 
/SIMULATOR ITERATION COUNTER 
/CHECK TO SEE IF SIMULATOR SELECTED 
/SIMULATOR CONTROL WORD 

/LOAD SIMULATOR IF SELECTED ALSO SET SCOPE 

/LOOP J THIS ADDRESS IF SIMULATOR SELECTED 

/OTHERWISE SCOPE LOOP IS NEXT ADDRESS 

/CLEAR ALL FLAGS 

/SET REAL TJME CLOCK (NT ENA 

/CLEAR PROGRAM I NTERUPT FLAG 

/TURN THE INTERRUPT ON 

/SKIP ON DATA READY FLAG 

/DATA READY FLAGS SET FOLLOWING INIT 
/SKIP ON DATA ACCEPTEO 

/DATA ACCEPTED SET FOLLOWING INIT 

/CHECK THAT THE PROGRAM DID NOT INTERRUPT 

/PROGRAM INTERRUPTED WITHOUT FLAGS AND INT ENA SET 

/SET INTERRUPT ENABLE TO A 1 

/CHECK THAT DBSE DIDNfT CHANCE THE AC 

/DBSE SKIPPED OR READ SOMETHING INTO AC 

/GET THE PROGRAM I NTERRU D T FLAG 

/PROGRAM INTERRUPTED WITHOUT FLAG SET 
/TRANSMIT AND SET DATA READY ■ 
/SKIP ON DATA READY FLAG 
/DBTD FAILED TO SET OATA READY 
/DID THE PROGHAM INTERRUPT? 

/PROGRAM FAILED TO INTERRUPT OR INT ENA NOT SET 

/CLEAR INTERRUPT ENABLE 

/CHECK THAT OBCE DIDN'T CHANGE THE AC 

/D3CE SKIPPED OR CHANGED THE AC 

/TURN THE INTERRUPT ON 

/SKIP ON DATA READY 

/DATA READY FLAG GOT CLEARED 

/GET THE PROGRAM INTERRUPT FLAG 

/PROGRAM INTERRUPTED, OBCE FA I LEO TO INT ENA 
/CLEAR ALL FLAGS 



/DKCS.AA OPTION TEST 1 MAINDEC.Be.OUDKA.a.L t K »J«T i PAL10 V1«A 14.JUN.7I till PAGE 2.13 



0732 4424 DQNLOP /REPEAT TEST IF SR « 1000 

/......... • .................. 

/test u « checks that initialise win, clear int ena f/f using the 

/DATA READY FLAG TO SKIP AND INTERRUPT ON, 

/«.«.«•••.•««»•«**«.«.»»«».*......»«»*».».««.•»«.•».».«««..... ........ 

£1733 4423 TESTll, LOOPPC /SETUP TEST COUNT AND TEST LOOPING ASCRESS 

8734 7777 .1 /SIMULATOR ITERATION COUNTER 

0735 4434 SIMCHK /CHECK TO SEE IF SIMULATOR SELECTED 

0736 4000 4000 /SIMULATOR CONTROL WORD 

0737 4437 LODSIM /LOAD SIMULATOR IF SELECTED ALSO SET SCOPE 

/LOOP a THIS ADDRESS JF SIMULATOR SELECTED 
/OTHERWISE SCOPE LOOP IS NEXT ADORESS 

0740 6007 CAF /CLEAR ALL FLAGS 

0741 4149 RTCENA /SET REAL TIME CLOCK INT ENA 

0742 3841 DCA INTFLG /CLEAR PROGRAM INTERRUPT FLAG 

0743 6001 ION /TURN THE INTERRUPT ON 

0744 6574 DBTO /TRANSMIT AND SET DATA READY 

0745 6571 OBSK /SKIP ON DATA READY FLAG 

0746 4427 ERROR /DBTO FAILED TO SET DATA READY 

0747 4575 DBSE /SET INTERRUPT ENABLE 

0750 7000 NOP /PROGRAM SHOULD INTERRUPT UE9E 

0751 2041 ISZ INTFLG /DID THE PROGRAM INTERRUPT 

0752 4427 ERROR /NO , PROGRAM FAILED TO INTERRUPT 

0753 6007 CAF /CLEAR ALL FLAGS 

0754 4145 RTCENA /SET REAL TIME CLOCK INT ENA 

0755 6001 ION /TURN THE INTERNUPT BACK ON 

0756 6571 OBSK /SKIP ON .DATA READY FLAG 

0757 7410 SKP 

0763 4427 ERROR /PIT FAILED TO CLEAR DATA READY 

0761 6574 OBTD /TRANSMIT AND SET DATA READY 

0762 6571 OBSK /SKIP ON DATA READY FLAG 

0763 4427 ERROR /DBTO FA I LED TO SET DATA READY FLAG 

0764 1041 TAD INTFLG /GET THE PROGRAM INTERRUPT FLAG 

0765 7640 SEA CLA 

0766 4427 ERROR /PROGRAM INTERRUPTED. INIT FAILE5 TO 

/CLEAR INTERRUPT ENABLE F/F 

0767 60*7 CAF /CLEAR DATA READY FLAG 

0770 6571 OBSK /SKIP ON DATA READY FLAG 

0771 7410 SKP 

0772 4427 ERROR /INIT FAILED TO CLEAR DATA READY 

0773 4424 DONLOP /REPEAT TEST JF SR . 1000 

/......« ...... ....... 

/TEST 12 - CHECKS THAT 'DATA ACCEPTED C*N CAUSE A INTERRUPT, 

0774 4423 TEST1Z, LOOPPC /SETUP TEST COUNT AND TEST LOOPING ADDRESS 
8775 7777 -1 /SIMULATOR ITERATION COUNTER 

0776 4436 SIMCHK /CHECK TO SEE IF SIMULATOR IS SELECTED 

0777 4000 4000 /SIMULATOR CONTROL WORD 

1003 4437 LODSIM /LOAD SIMULATOR IF SELECTED ALSO SET SCOPE 

/LOOP > THIS ADDRESS IF SIMULATOR SELECTED 
/OTHERWISE SCOPE LOOP IS NEXT ADDRESS 



/DKC8.AA OPTION TEST 1 MAINDEC-08-DJOKA-B^L IK PART 1 PALia «142A 16-JUN-79 



9 I 00 



PAGE 2.14 



1801 
1032 
1003 
1004 
1305 
1006 
1007 
1010 
1011 
1212 
1013 
1014 
1015 
1016 
1017 
1020 
1021 
1022 
1023 
1024 
1025 
1026 



6007 
4145 
3041 
6001 
6573 
7000 
1041 
7640 
4427 
6575 
7000 
2041 
4427 
6001 
6570 
7610 
4427 
1041 
7640 
4427 
6576 
4424 



1027 4423 

1030 7777 

1031 4436 

1032 4000 

1033 4437 



1034 
1035 
1B36 
1037 
1040 
1041 
X042 
1043 
1044 
1045 
1046 
1047 
1050 
1051 
1052 
1053 
1254 
1055 
1056 
4857 



3041 
6007 
4145 
6001 
7240 
6574 
7001 
7640 
4427 
6037 
4145 
6031 
7240 
6572 
7640 
4427 
7240 
6571 
7001 
7640 



/CLEAR ALL FLAGS 
/SET REAL TIME OLOCK I NT ENA 
/CLEAR PROGRAM INTERRUPT FLAG 
/TURN THE INTERRUPT ON 
/CLEAR DATA READY SET DATA ACCEPTED 
/SHOULDN'T INTERRUPT HERE 
/GET THE PROGRAM INTERRUPT FLAG 

/PROGRAM INTERRUPTED WITHOUT I NT ENA SET 
/SET INTERRUPT ENABLE 

/SHOULD INTERRUPT HERE WITH INT ENA AND FLAG SET 
/DID THE PROGRAM INTERRUPT __„„ 
/NO, FAILED TO INTERRUPT WITH INT ENA AND DATA ACCEPTED SET 

;cH^K T ?HAi N ^ U :cC^0°GOT CLEARED BY 1ST DBST IN SKIP CHAIN 

/DATA ACCEPTED DIDN'T CLEAR IN INTERRUPT SKIP CHAIN 
/GET THE PROGHAM INTERRUPT FLAG 

/PROGRAM INTERRUPTED WITH DATA ACCEPTED CLEARED 
/CLEAR INTERRUPT ENABLE 
/REPEAT TEST IF SR ■ XW 

/............ ..»...» » * „ 

/TEST 13 . CHECKS THE EFFECT OF THE IUT ON THE Ac, BRO S H OULD BE THE ONLY 

/i2I.I2.«««.I«.«.... ............... 

/STORE THE TEST LOOPING ADDRESS AND SEtUP TEST COUNT 
/SIMULATOR ITERATION COUNTER 
/CHECK TO SEE IF SIMULATOR IS SELECTED 
/CONTROL WORD FOR THE SIMULATOR 
/LOAD SIMULATOR IF SELECTED ALSO SET SCOPE 
/LOOP • THIS ADDRESS IF SIMULATOR SELECTED 
/OTHERWISE SCOPE LOOP IS THIS ADDRESS *1 
/CLEAR PROGRAM INTERRUPT FLAG 
/CLEAR ALL FLAGS 
/SET REAL TIME CLOCK INT ENA 
/TURN INTERRUPT ON 
/SET THE AC TO ALL ONES 
/TRANSMIT DATA 



CAF 




RTCENA 




OCA 


INTFLG 


I ON 




DBCF 




NQP 




TAD 


INTFLG 


S2A 


CLA 


ERROR 




DBSE 




NOP 




IS2 


INTFLG 


ERROR 




ION 




DBST 




SKP 


CLA 


ERROR 




TAD 


INTFLG 


SHA 


CLA 


ERROR 




OBCE 




DONLOP 





TEST13, LOOPPC 
-1 

SIMCHK 

4000 

LODSIM 



DCA INTFLG 
CAF 

RTCENA 
ION 

CLA CMA 
OBTD 
I AG 

SiA CLA 

ERROR 
CAF 

RTCENA 
ION 

CLA CMA 

DBRD 

SiA CLA 

ERROR 

CLA CMA 

OBSK 

IAC 

S2A CLA 



/DBTO CHANGED THE AC 
/CLEAR ALL 

/SET REAL TIME CLOCK I NT ENA 
/TURN INTERRUPT BACK OR 
/SET THE AC TO ALL ONES 
/READ THE 12 BIT PARALLEL I/O 

/DBRD FAILED TO READ OR CAF FAILED TO CLEAR XMIT BUFFERS 
/SET AC TO ALL ONES 
/SKIP QN DATA READY 



/OKCj.AA OPTION TEST 1 MA INOEC'BS'BJnKA-B.L IK PART 1 PAL13 V142A l6'JUN.7S 



9 i aa pase 2«is 



1363 
1061 
1862 
1063 
1064 
1065 
1066 
1067 
1073 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1101 
1101 
1132 
1133 
1104 
1105 
1136 
1107 
1113 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1120 
1121 
1122 
1123 



1126 
1127 
1130 



4427 
6002 
7240 
6573 
7001 
7640 
4427 
6007 
4145 
6031 
7240 
6570 
7081 
7640 
4427 
7240 
6575 
7001 
7640 
4427 
7240 
6576 
7001 
7640 
4427 
7240 
6577 
7410 
4427 
7001 
7640 
4427 
1041 
7640 
4427 
4424 



1124 4423 

1125 7777 



4436 
4000 
4437 



1131 3041 

1132 7240 

1133 3051 

1134 4426 

1135 4430 

1136 4424 



ERROR 
I OF 

CLA CMA 

oacr 

IAC 

SZA CtA 

ERROR 

CAF 

RTCENA 
ION 

CLA CMA 

DBST 

IAC 

SZA CLA 
ERROR 
CLA CMA 
DBSE 
IAC 

SZA CLA 
ERROR 
CLA CMA 
OBCE 
IAC 

SZA CLA 

ERROR 

CLA CMA 

DBS5 

SKR 

ERROR 

I AC 

SZA CLA 
ERROR 

TAD INTFLG 
SZA CL» 
ERROR 
n-ONLOP 



/OBSK CHANGED THE AC 



/SET THE AC TO ALL ONES 

/CLEAR DATA REAOV FLAG SET DATA ACCEPT FLAG 



/DBCF CHANGED THE AC 
/CLEAR ALL FLAGS 
/SET REAL TIME CLOCK I NT ENA 
/SET INTERRUPT ENABLE 

/SKIP ANn SLEAR DATA ACCEPTED AND DATA AVAILABLE 



/D3ST SKIPPED OR CHANGED THE AC 
/SET PARALLEL INTERRUPT ENABLE 

/DBSE CHANGED THE AC 
/CLEAR INTERRUPT ENABLE 



/DSCE CHANGED THE AC 
/SET THE AC TO ALL ONES 
/ISSUE A STROBE PULSE 

/DBSS SKIPPED 



/D«SS CHANGED THE AC 

/DID THE PROGRAM INTERRUPT 



/PROGRAM INTERRUPTED 

/CHECK TO SEE IF DONE OR LOOP ON TEST 



/TEST 14 « CHECKS THAT ALL ONES CAN BE TRANSMITTED AND READ 'AcK, IT ALSO CHECKS THAT 
/CAP CAN CLEAR THE XMIT BUFFERS. INTERRUPTS ARE ALSO CHECKED 
/*••»•«**•••»»««*•««»••»»•»«»»*•«•«««#»«»•*«•*«»»««• ••###*»###*»##»#*• 



TEST14, LOOPPC 
-1 

SI«CHK 

4000 

LOOSIM 



OCA INTFLG 
CLA CMA 
DC* PIOXMT 
PIODAT 
PICDER 
DONLOP 



/SETUP SCOPE LOOP ADDRESS AND SETUP TEST COUNT', 

/SIMULATOR ITERATION COUNTER 

/CHECK TO SEE IF SIMULATOR IS SELECTED 

/CONTROL WORD FQR THE SIMULATOR 

/LOAD SIHULATOR IF SELECTED ALSO SET SCOPE 

/LOOP . THIS ADDRESS IF SIMULATOR SELECTED 

/OTHERWISE SCOPE LOOP IS THIS ADDRESS il 

/CLEAR PROGRAM INTERRUPT FLAG 

/SET THE WORD To BE TRANSMITTED TO ALL ONES 
/GO TRANSMIT AND COMPARE THE WORD 

/DATA ERROR - WORD DIDN'T COMPARE IN ROUTINE PIOOAT 
/REPEAT TEST IF NOT DONE OR LOOP ON TEST IF SR2-1 



/DKCS.AA OPTION TEST 1 MAINDEC»28rDJ0KA»B-L IK PART 1 PAL10 VU2A 16-JUN.7S 9|00 PAGE 2«l6 



1137 
1140 
1141 
1142 
1143 



1144 
1145 
1146 
1147 
1150 
1151 
1152 
1153 
1154 



4453 
7777 
4436 
4030 
4437 



3041 
7240 
3051 
4426 
4430 
3051 
4426 
4430 
4424 



/TEST 15 . CHECKS FOR A COMPLEMENTING DATA PATTERN OF 7777 THEN 
/WILL CLEAR THE DATA BUFFER, THE PROGRAM IS CHECKED TO INTERRUPT 
««»•»#«« 



AND CHECKS THAT CAF 



TESTIS, LOOPPC 
.1 

SIMCHK 



OCA INTFLG 
CLA CMA 
OCA PJOXMT 
PIODAT 
PIOOER 
DCA PIOXMT 
PIODAT 
P I DOER 
DONLOP 



/SETUP TEST SCOPE LOOP AND TEST COUNT 

/SIMULATOR ITERATION COUNTER 

/CHECK TO SEE IF SIMULATOR IS SELECTED 

/CONTROL WORD FOR THE SIMULATOR 

/LOAD SIMULATOR IF SELECTED ALSO SET SCOPE 

/LOOP » THIS ADDRESS IF SIMULATOR SELECTED 

/OTHERWISE SCOPE LOOP IS THIS ADDRESS *1 

/CLEAR PROGRAM INTERRUPT FLAG 

/SET THE FIRST WORD TO ALL ONES 

/SAVE IT 

/GO TRANSMIT AND COMPARE THE WORD 

/DATA ERROR - WORD DIDN'T COMPARE IN ROUTINE PIOOAT 

/SET THE WORD TO 

/GO TRANSMIT AND COMPARE THE WORD 

/DATA ERROR. FAILED TO READ ZEROES BACK 

/REPEAT TEST IF NOT DONE OR LOOP ON TEST IF SR2»1 



/TEST 16 - CHECKS POP A COMPLEMENTING DATA PATTERN OF 5252 . 2525 AND CHECKS 
/THAT CAF WILL CLEAR THE X"IT BUFFERS, THE PROGRAM IS CHECKED TO INTERRUPT 



1153 4423 

1156 7777 

1157 4436 
1163 4030 
1161 4437 



1162 3041 

1163 1362 

1164 3051 

1165 4426 

1166 4430 

1167 1363 

1173 3351 

1171 4426 

1172 4430 

1173 4424 

1174 5440 



TEST16, LOOPPC 
-1 

SIMCHK 



OCA INTFLG 
TAO K5252 
DCA PIOXMT 
PIODAT 
PIOOER 
TAD K2525 
OCA PIOXMT 
"IDDAT 
PIODER 
DONLOP 

"RGEND 
IFDEF 0P13K <P*GE> 



/SETUP TEST LOOP AND TEST COUNT 

/SIMULATOR ITERATION COUNTER 

/CHECK TO SEE IF SIMULATOR IS SELECTED 

/CONTROL WORD FOR THE SIMULATOR 

/LOAD SIMULATOR IF SELECTED ALSO SET SCOPE 

/LOOP » THIS ADDRESS IF SIMULATOR SELECTED 

/OTHERWISE SCOPE LOOP IS THIS ADDRESS *1 

/CLEAR PROGRAM INTERRUPT FLAG 

/SET THE FIRST WORD TO TRANSMIT =5252 
/GO TRANSMIT ANU COMPARE THE DATA WORD 
/DATA ERROR - WORD DIDN'T COMPARE 

/SET THE SECOND WORD TO TRANSMIT a 2525 
/GO TRANSMIT AND COMPARE THE WORD 
/DATA ERROR-THE WORD DIDN'T COMPARE 

/REPEAT THE TEST IF NOT DONE OR LOOP ON TEST IF SR2sl 

/END OF 1ST IK SEGMENT 



IFDEF 0P13K <PAGE> 



IFOEF 0P13K <PAGE> 



/CKCI.AA OPTION TEST 1 MA!NDtO.0».DJDKA.».L' IK PART 1 PAL19 V14ZA 16.JUN.79 



9 100 PASE 2.17 



1200 PASE 



/R OUT I ME TO SETUP » OF PASSES/TEST ANg TO STORE THE RETURN ADDRESS FOR SCOPE LOOPING 

12BU eaos pclqop, u 

1201 7340 CLA CLL CMA 

1202 1200 TAO PCLOOP 

1203 3045 00* TEST 

un* am tao i pcloqp 

1235 3067 OCA SJMCNT 

1206 7240 CLA CMA 

1207 3050 OOA SAVONT 

1210 1050 TAD SAVCNT 

1211 3047 OCA TSTCNT 

1212 2200 IS! PCLOOP 

1213 5600 JMP I PCLOOP 

1214 3000 SIMLOD, 

1215 1055 TAO CONTWD 

1216 6151 LOADS* 

1217 7300 CLA CLL 

1220 5614 JHP I SIMLOO 

1221 P000 LOPOONi 

1222 2047 ISi TSTCNT /TEST DO>)E? 

1223 5446 JHP I TSTLOP /NO RETURN TO TEST 

1224 1021 TAO 0P1SEL /IS THE SIMULATOR SELECTED 

1225 Z097 ANO K200 

1226 7650 SNA CLA 

1227 5237 JHP LOOPSW /SIMULATOR NOT SELECTED, CHECK TEST LOOP SWITCH 

1230 ?067 ISH SJMCNT /ADD A 1 To THE CONTROL WORD? 

1231 7610 SKP CLA 

1232 5237 JMP LOOPSW /NO, CHECK TEST LOOP SWITCH 

1233 2055 I S 2 CONTWD /ADD 1 TO THE CONTROL WORD FOR BAUD RATES 

1234 1050 TAO SAVONT /GET THE TEST COUNT 

1235 3047 OCA TSTCNT /RESTORE IT FOR A NEW PASS FOR A DIFFERENT BAUD 

1236 5446 JMP I TSTLOP /RETURN FOR NEW BAUO RATE 

1237 4435 LOOPSW i SHHCHK /CHECK FOR SR2«1 

1240 7006 RTL 

1241 7700 SMA CLA /LOOP; 

1242 5621 JM" I LOPOON /NO, GO TO NEXT TEST 

1243 5445 JMP I TEST /YES, LOOP ON THIS TEST 



/get the control word 

/load The simulator control word 



1244 6102 SIMINT, SPL /SKIP ON POWER LOW 

1245 7410 SKP 

1246 5777' JMP POWFAL /POWER GOING DOWN . GO SAVE EVERYTHING 



/DKC3-AA OPTION TEST 1 MA I NOEC-08.D JdKA-BoL IK PART 1 PAL10 V142A 16.JUN.79 



1247 
1250 



3251 
5321 



1251 3000 



DOA AC 
JMP FLGCK5 



AO, 



9 | 00 



PAGE 2.18 



/SAVE THE AC 

/RETURN TO THE PROGRAM 



1252 

1253 

1254 

1255 

1256 

1257 

1260 

1261 

1262 

1263 

1264 

1265 

1266 

1267 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1300 

1301 

1302 

1333 

1334 

1335 

1306 

1337 

1313 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1330 

1321 

1322 

1323 

1324 

1325 

1326 

1327 



6102 

7410 

5777' 

3251 

1042 

7650 

4776' 

6137 

7410 

5305 

1133 

7440 

5300 

6041 

7610 

5310 

6031 

'410 

5313 

6571 

7410 

5316 

6570 

7640 

5317 

4427 

5317 

6041 

7410 

4427 

6031 

7410 

4427 

6571 

7410 

4427 

6570 

7610 

4427 

3133 

7240 

3041 

4775' 

1330 

1251 

5730 



SKPCHN, 



A0T0K2, 

PLGCKl, 
FLGCK2, 
FLG0K3, 

FLGCK4, 
FLGCK9, 



SPL 
SKP 

JMP POWFAL 
OCA AC 
TAD CLKFLG 
SNA CLA 
JMS CHKACT 
CLSK 
SKP 

JM» FLGCKl 
TAD ACTFLG 
S2A 

JMP ACTCK2 
TSF 

SKP CLA 
JMP FLGCK2 
KSF 

JMP FLGCK3 

DBSK 

SKP 

JMP FLGCK4 

OBST 

S2A CLA 

JMP FLGCK5.2 

ERROR 

JMP FLGCK5.2 

TSF 

SKP 

ERROR 

KSF 

SKP 

ERROR 

DBSK 

SKP 

ERROR 

OBST 

SKP CLA 

ERROR 

OCA ACTFLG 
CLA CMA 
OCA INTFLG 
JMS RETURN 
INTRET 
TAD AC 

JMP 1 INTRET 



/SKIP ON POWER LOW 

/POWER GOING DOWN SAVE EVERYTHINB 
/SAVE THE AC 

/WERE WE EXPECTING A CLOCK INTERRUPT? 

/GO CHECK FOR THE ACT LIME 

/YES . SKIP ON REAL TIME CLOCK FLAG 

/GO CHECK THE OTHER FLAGS 
/GET THE ACT FLAG 

/DID THE PROGRAM GO TO THE PROM ? 
/YES, CHECK PAKALLEL I/O DATA ACCEPTED 
/WAS IT A TRANSMIT FLAG? 

/TRANSMIT FLAG SET . CHECK THE OTHER FLAGS 
/WAS IT A RECEIVE FLAG? 

/YES . GO CHECK THE OTHER FLAGS 
/WAS THE DATA READY FLAG SET? 

/YES « CHECK DATA ACCEPTED FLAG 

/WAS DATA ACCEPTED SET. IF SO CLEAR IT 

/YES, THE FLAG SHOULD BE CLEAR NOW 

/ILLEGAL INTERRUPT - 

/RETURN 

/SKIP ON XMIT FLAG 

/X'lIT FLAG SET 

/SKIP ON RECEIVE FLAG 

/RECEIVE FLAG SET 

/SKIP ON P I/O DATA READY 

/DATA READY FLAG SET 
/SKIP ON DATA ACCEPTED 

/DATA ACCEPTED FLAG SET 
/CLEAR THE ACT FLAG 

/SET INTERRUPT FLAG 



1330 0000 INTRET, 1 



/DkCB.AA OPTjON TEST 1 mAiNQE5.09.DjDkA.S.i. Ik PART 1 PAL10 V142A 16.JUN.7J 



9122 PAGE 2.19 



1331 
1332 
1333 
1331 
1335 
1336 
1337 
1340 
1341 



1342 
1343 
1344 
1345 
1346 
1347 
1350 
1351 
1352 



1353 
1354 
1355 
1356 
1357 
1360 
1361 
1362 



7300 
1147 
3044 
3043 
6041 
4363 
2331 
5731 



!"000 
7330 
1147 
3044 
3043 
6031 
4363 
2342 
5742 



7240 
3044 
3043 
6137 
4363 
3353 
5753 



/ROUTINE TO U A IT FOR SERIAL LINE UNITS XM[T FLAG 

WATTSF, 

OLA 



TAD 
OCA 
OOA 
TSF 
JMS 
ISZ 
JMP 



CLL 
K7710 
ONT1 
CNT 

ADDTIM 
WATTSF 
I WATTSF 



/SKIP ON SLU TRANSMIT FLAG 
/SO ADD ONE TO THE COUNTER 



/RETURN TO THE PROGRAM. GOT THE FLAG 
/ROUTINE TO WAIT FOR THE SERIAL LINE UNJT RECEIVE FLAG 
WATKSF, C 



CLA 
TAD 
OCA 
OCA 
KSF 
JMS 

ise 

JMP 

/ROUTINE TO 



CLL 
K7710 
CNTl 
CNT 

ADDTIM 
WATKSF 
I WATKSF 



/SKIP ON SLU RECEIVE FLAS 
/GO AUO A ONE TO THE COUN'ER 



/RETURN TO THE PROGRAM. GOT THE FLAG 
WAIT FOR THE REAL TIME CLOCK FLAG 



WTCLSKi 



CLA 

DCA 

OCA 

CLSK 

JMS 

ISZ 

JMP 



CMA 

CNTl 

CNT 

ADDTIM 
WTCLSK 
I WTCLSK 



/SKIP ON THE REAL T J ME CLOCK FLAG 
/GO ADO ONE TO THE COUNTER 

/RETURN TO THE PROGRAM. GST THE FLAG 



/ROUTINE TO WAIT FOR THE FLAG 

1363 ^000 ADDT I M i 

1364 2043 ISZ CNT 

1365 7610 SKP CLA 

1366 2044 ISZ CNTl 

1367 7346 CLA CLL CMA RTL 

1370 7031 IAC 

1371 1363 TAD ADDTIM 

1372 3363 DC« ADDTIM 

1373 5763 JMP I ADDTIM 



1375 1420 

1376 1544 

1377 1441 
1400 



/DKC8.AA OPTION TEST 1 MA I NDEC05.O JDKA-B-L IK PART 1 PAL10 V142A 16.JUN.75 9|00 PAGE 2.20 

/THIS IS THE END OF A PROGRAM PASS', If SR3«1 HALT, IF NOT START PROGRAM OVER 

/CLEAR THE SIMULATOR 
/GO GET SWITCH REGISTER 



/SRJfl END OF A COMPLETE PROGRAM PASS 
/START PROGRAM OVER 



1403 


6160 


ENDPAS, 


SIMCLR 


1401 


4435 




SWHCHK 


1402 


7006 




PTL 


1403 


7004 




PAL 


1404 


7710 




SPA CLA 


1405 


7402 




HIT 


.1406 


5777' 




JMP 0200 






/CHECK 


TO SEE IF FRONT 


1407 


?000 


CHKSWH, 





1410 


7200 




CLA 


1411 


1021 




TAD 0P1SEL 


1412 


7700 




SMA CLA 


1413 


5216 




JMP ,*3 


1414 


7604 




LAS 


1415 


5607 




JMP I CHKSWH 


1416 


1020 




TAD SWITCH 


1417 


5607 


/ 


JMP I CHKSWH 






/THIS ROUTINE SETS UP I 


1420 


P000 


RETURN, 





1421 


6201 




CDF 


1422 


1636 




TAD I K0 


1423 


3237 




DCA RETAOD 


1424 


6224 




"IF 


1425 


1131 




TAO KCDF 


1426 


3227 




DCA ,*l 


1427 


7402 




WLT/CDF 


1433 


1620 




TAD I RETURN 


1431 


3240 




DCA SAVLOC 


1432 


2220 




ISZ RETURN 


1433 


1237 




TAD RETADO 


1434 


3640 




OCA I SAVLOC 


1435 


5620 




JMP I RETURN 


1436 


,1000 


K0, 


(? 


1437 


-800 


RETADDj 




1440 


i'000 


5AVL0C, 






/Change data fjeld to f ield z 

/GET THE INTERRUPT PC 
/SAVE IT 

/READ THE PROGRAM INSTRUCTION FIELD 
/ADO A CDF INSTRUCTION TO IT 
/SAVE IT IN THE NEXT LOCATION 
/RETURN TO THE PROGRAM DATA FIELD 
/GET THE INTERRUPT RETURN LOCATION 
/SAVE IT 



1441 
1442 
1443 
1444 
1445 
1446 



7200 
6201 
1265 
3636 
1045 
3666 



/POWER FAIL ROUTINE, THE PROGRAM WILL OQ IT'S OWN AUTO. RESTART 
/AT THE BEGINNING OF THE TEST THAT IT WAS EXECUTING UNLESS ALL POWER 
/WENT AWAY, THEN THE POWER FAIL AUTO. RESTART OPTION WOULD TRY To DO 
/A RESTART IF IT WAS SELECTED , 



POWFALi 



CLA CLA 

CDF H0 

TAD KJMP7 

DCA I K0 

TAO TEST 

DCA I KTEST 



/DKCS.AA OPTION TEST l HAfNDEC.Bd.DJOKA.B.I. t K PART l .<H3 Vl«A 16.JJN.7J 



CASE 2.21 



144? 12«7 

1450 3670 

1451 1132 

1452 3671 

1453 1272 

1454 1673 

1455 6004 
1436 3674 
1457 6244 

1460 6103 

1461 6102 

1462 7610 

1463 5261 

1464 5445 



1465 
1466 
1467 
1473 
1471 
1472 
1473 
1474 



5007 
?045 
1012 
0007 
M10 
5445 

0011 

P012 



KJMP7, 

KTEST, 

riGNST, 

C7, 

K10i 

KJMPRT, 

Kill 

K12i 



TAD 


FLGRST 


OCA 


I C7 


TAD 


KRTF 


DCA 


I K10 


TAD 


KJMPBT 


DCA 


1 Kit 


GTF 




OCA 


I K12 


RMF 




CAL 




SPL 




SKP 


CLA 


JMP 


,"2 


JMP 


I TEST 


JMP 


7 


TEST 




TAD 


12 


7 





10 

JMP 

11 

12 



I TEST 



1475 
1476 
1477 
1500 
1501 
1502 
1533 
1504 
1505 
1506 
150? 
1510 
1511 
1512 
1513 

1514 
1515 
1516 
1517 
1523 
1521 
1522 
1523 
1524 
1525 



4326 
4435 
7710 
5387 
7240 
1275 
7402 
4314 
7402 
4435 
7004 
7700 
5675 
5446 

7000 
7300 
1021 
0057 
7650 
5324 
1055 
5714 
2314 
5714 



/LOGIC ERROR ROUTINE • RESTART TEST 
AERROR, 



IP SRI4I 



ACTCHK 



JMS 

SWHCHK 
SPA CLA 
JMP AERSWH 
CLA CM A 
TAD AERROR 
HLT 

JMS S I MWRD 
HLT 

AERSWH 1 SWHCHK 
PAL 

SMA CLA 

JMP I AERROR 

JMP I TSTLOP 

SIMWRB, 

CLA CLL 

TAD 0P1SEL 

AND K200 

SNA CLA 

. JMP ,*3 

TAD CONTWD 

JMP I SJMWRO 

IS? SJHWRD 

JMP I SIMWRD 



/GO CHECK TO SEE IF RUNNING ON ACT LINE 
/CHECK SR0 TO INHIBIT ERROR HALT 

/SR0=1 CHECK LOOP ON LOGIC ERROR 



/AC ' ADDRESS WHERE ERROR WAS DETECTED 
/WAS THE SIMULATOR SELECTED 
/AOSIMULATOR CONTROL WORD 
/CHECK SRln TO LOOP ON ERROR 



/RETURN WITHOUT LOOPING ON TEST 

/SCOPE LOOP GO BACK TO START OF TEST SECTION 



/DkCS.AA OPTION TEST 1 mAINDEO-08-OjD k A-B-l Ik PART 1 PA L 13 V142A 16.jun.75 



/ROUTINE TO EXIT TO PROM ON AN ERROR I F RUNNING ON THE ACT LINE 



1526 
1527 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
153? 
1540 
1541 
1542 



ACTCHKi 



7300 
1022 
7700 
5726 
6002 
7344 
1326 
3343 
7240 
1743 
6272 
5477 





CLA 
TAD 
SMA 

JM" I 
IOF 

CLA CLL CMA RAL 



CLL 

0P2SEL 
CLA 

ACTCHK 



TAD 
DCA 
CLA 
TAD 
CIF 



ACTCHK 
ERRPC 
CMA 
ERRPC 
70 



1543 0000 



JMP I BAOPAS /GO TO THE PRUM 
ERRPC, 



/GET THE HARDWARE CONTROL WORD 

/IS THE PROGRAM RUNNING ON THE AST LINE? 

/NO, RETURN TO ERROR ROUTINE 

/TURN THE INTERRUPT OFF 



/GET THE LOCATION WHERE THE ERROR WAS DETECTED 
/CHANGE INSTRUCTION FIELD TO FIELD 7 



1544 


0000 


CHkACT, 











1545 


6137 




CLSK 




/WAS THE CLOCK FLAG SET 




1546 


7410 




SKP 




/NO-RETURN TO INT SERVICE 


ROUTINE 


1547 


5352 




JMP 


CLKSET 


/YES-CLEAR THE FLAG 




1550 


2344 




IS! 


CHKACT 


/ADD 1 TO THE INCOMING PC 




1551 


5744 




JMP 1 


CHKACT 


/RETURN TO SK[P CHAIN 




1552 


6136 


CLKSET, 


CLCL 




/CLEAR THE CLOCK FLAG 




1553 


1022 




TAD 


0P2SEL 


/GET THE ACT LINE BIT 




1554 


7710 




SPA 


CLA 


/IS THE PROGRAM RUNNING ON ACT LINE 


1555 


5365 




JMP 


ONACTL 


/YES , CHECK FOR # OF CLOCK 


TICKS 


1556 


5390 




JMP 


CHKACT +4 /RETURN TO INTERRUPT ROUTINE 


1557 


4220 




JMS 


RETURN 


/NO , RETURN TO THE PROGRAM 




1560 


1564 




ACTRET 








1561 


1776' 




TAD 


AC 






1562 


6031 




ION 




/TURN THE INTERRUPT ON 




1563 


5764 




JMP 1 


ACTRET 


/RETURN TO THE PROGRAM 




1564 


S000 


ACTRET , 











1565 


2101 


ONACTL 1 


isz 


ACTCNT 


/130 CLOCK TICKS YET? 




1566 


5357 




JMP 


CLKSET*5/N0 RETURN TO PROGRAM 




1567 


1102 




TAD 


M144 


/RESET ACT TIME COUNTER 




1573 


3101 




OCA 


ACTCNT 


/SAVE THE NUMBER 




1571 


6272 




CIF 


70 


/CHANGE INSTRUCTION FIELD 


TO 7 


1572 


4500 




JMS I 


GOODPS 


/SIGNAL PSOM THAT PROGRAM 


STILLS PAS 


1573 


7240 




CLA 


CMA 






1574 


3133 




OCA 


ACTFLG 


/SET THE ACT LINE FLAG TO 


ONES 


1575 


5357 




JMP 


CLKSET+3/RETURN TQ THE PROGRAM 




1576 


1251 












1577 


0200 













/0KC8.AA OPTION TEST 1 MA I NOEC.0B.DJDKA-B-L IK PART 1 PALlfl V142A 16.JUN.75 9)00 PAGE 8.25 



1600 PAGE 



/ROUTINE FOR TRANSMITTING, REARING AND COMPARING DATA FOR PARALLEL I/O 



1600 


?>000 


OATPIO, 




1601 


6007 


CAF 


/CLEAR ALL 


1602 


4145 


RTCENA 


/SET REAL TIME CLOCK INT ENA 


1603 


6001 


ION 


/TURN THE INTERRUPT ON 


1604 


6575 


OBSE 


/SET PARALLEL I/O INT ENA 


1605 


1051 


TAO PIOXMT 


/GET THE WORD TO BE LOADED INTO PARALLEL I/O 


1606 


6574 


OBTD 


/LOAD AND TRANSMIT THE WORD 


1607 


7200 


CUA 




1610 


6571 


OBSK 


/SKIP ON DATA READV 


1611 


4427 


ERROR 


/ERROR, DATA HEADY FLAG FAILED TS SET SY DSTO 


1612 


5041 


IS? INTFLG 


/GET PROGRAM INTERRUPT FLAG 


1613 


4427 


ERROR 


/PROGRAM FAILED TO INTERRUPT WITH INT ENA * FLAG SET 


1614 


3041 


OCA INTFLG 


/CLEAR PPOSRAM INTERRUPT FLAG 


1615 


6572 


OBRD 


• /READ THE 12 BIT PARALLEL I/O SUFFER 


1616 


3052 


OCA PIOREC 


/SAVE THE WORD READ 


1617 


6571 


nBSK 


/SKIP ON DATA READY FLAG 


1628 


4427 


ERRQB 


/DRRD CLEARED DATA READY FLAG 


1621 


6573 


DBCF 


/CLEAR DATA READY FLAG 


1622 


6001 


ION 


/TURN INTERRUPT BACK ON 


1623 


7000 


NOP 


/SHOULD INTERHUPT HERE FOR DATA ACCEPT FLAG 


1624 


6570 


DBST 


/SKIP ON DATA ACCEPT 


1625 


7610 


SK P OLA 




1626 


4427 


ERROR 


/DATA ACCEPT FAILED TO CLEAR IN INTERRUPT ROUTINE 


1627 


2041 


IS! INTFLG 


/CHECK TO SEE IT IT INTERRUPTED 


1630 


4427 


ERROR 


/DATA ACEPT FLAG FAILED TO INTERRUPT 


1631 


6001 


ION 


/TURN THE INTERRUPT BACK ON 


1632 


7000 


NO" 




1633 


1041 


TAO INTFLG 


/GET PROGRAM INTERRUPT FLAG "* 


1634 


7640 


SZA CLA 


/DID IT INTERRUPT? 


1635 


4427 


ERROR 


/PROGRAM INTERRUPTED WITHOUT DATA READY SET 


1636 


1051 


TAO PIOXMT 


/GET THE WORD THANSM I TTEO 


1637 


7041 


1 A 




1640 


1052 


TAO PIOREC 


/GET THE WORD READ 


1641 


7640 


SHA CLA 


/ARE THEY EQUAL? 


1642 


5600 


JHP I OATPIO 


/DATA ERROR RETURN TO REPORT ERROR 


1643 


6007 


CAF 


/CLEAR ALL FLAGS AND P I/O BUFFER 


1644 


4145 


RTCENA 




1645 


6001 


ION 


/TURN THE INTERRUPT ON 


1646 


6572 


DBRB 


/READ THE 12 BIT P I/O BUFFER 


1647 


7640 


SZA CLA 




1650 


4427 


ERROR 


/CAF FAILED TO CLEAR THE 12 BIT DATA BUFFER 


1651 


2200 


ISZ OATPIO 


■ /BUMP RETURN ADDRESS POINTER BY 1 


1652 


5600 


UMP I OATPJO 


/RETURN TO TEST 



/ROUTINE FOR TRANSMITTING, READING AND COMPARING DATA FOR SLU 



1693 0000 OATSLUi a 

1654 6007 CAF /CLEAR ALL FLAGS BUT SET INT ENA ON SLU 

1655 4145 RTCENA /SET REAL TIME CLOCK INT fNA 

1656 6001 ION /TURN THE INTERRUPT ON 

1657 3041 OCA INTFLG /CLEAR THE PROGRAM INTERRUPT FLAG 



/OKCg.AA OPTION TEST j, MAINDEC"08«DJOKA-R»L 1« PART j PAL10 V^A 16-JUN-75 9100 PAGE 2-24 



1660 


1053 


TAD 


SLUXMT 


/GET THE WORD TO BE TRANSMITTED 


1661 


6046 


TLS 




/LOAD AND TRANSMIT IT AND CLEAR THE PLAG 


1662 


4431 


TSFHAT 




/WAIT FOR THE TRANSMIT FLAG 


1663 


4427 


ERROR 




/XMIT FLAG FAILED TO SET 


1664 


2041 


ISZ 


INTFLG 


/DID THE PROGRAM INTERRUPT? 


1665 


4427 


ERROR 




/PROGRAM FAILED TO INTERRUPT 


1666 


6042 


TCF 




/CLEAR THE XMIT FLAG 


1667 


6001 


ION 




/TURN THE INTERRUPT BACK ON 


1670 


4432 


KSFWAT 




/WAIT FOR THE RECEIVE FLAG TO SET 


1671 


4427 


ERROR 




/RECEIVE FLAG FAILED TO SET 


1672 


2041 


ISZ 


INTFLG 


/DID THE RECEIVE FLAG CAUSE A INTERRUPT 


1673 


4427 


ERROR 




/RECEIVE FLAG FAILED TO CAUSE A INTERRUPT 


1674 


6036 


KRB 




/CLEAR THE AC AND RCV FLAG AND READ SUFFER 


1675 


3054 


CCA 


SLUREC 


/SAVE THE WORD READ BACK 


1676 


6001 


ION 




/TURN THE INTERRUPT BACK ON 


1677 


1041 


TAO 


INTFLG 


/CHECK THAT KHB CLEARED THE RCV PLAG 


1790 


7640 


SZA 


CLA 




1701 


4427 


ERROR 




/KRB FAILED TO CLEAR RCV FLAG OP INTERRUPTED 


1702 


1053 


TAD 


SLUXMT 


/GET THE WORD TRANSMITTED 


1703 


7041 


CIA 






1704 


1054 


TAD 


SLUREC 


/GET THE WORD READ BACK 


1705 


76*0 


SZA 


CLA 




1706 


5653 


JMP I 


DATSLU 


/DATA ERROR.RETURN TO RE'ORT THE ERROR 


1707 


2253 


ISZ 


DATSLU 


/BUMP RETURN ADURESS POINTER BY ONE 


1710 


5653 


JMP I 


DATSLU 


/RETURN TO TEST 



/DATA ERROR ROUTINE FOR PARALLEL I/O 



1711 
1712 
1713 
1714 
1715 
1716 
1717 
1720 
1721 
1722 
1723 
1724 
1725 
1736 
1727 
1730 
1731 
1732 
1733 



?000 

4777' 

4435 

7710 

9327 

7240 

1311 

7402 

7200 

1051 

7402 

7200 

1052 

7402 

4433 

7004 

7700 

5711 

5446 



DERPIOi 



PIOSWH 



JMS ACTCH 

SWHCHK 

SPA CLA 

JMP PIOSWH 

CLA CMA 

TAO DERPIO 

HLT 

CLA 

TAO PIOXMT 

HLT 

CLA 

TAD PIOREC 
HLT 

SWHCHK 
RAL 

SMA CLA 

JMP I OERPIO 

JMP 1 TSTLOP 



/CHECK TO SEE IF RUNNING ON ACT LINE 

/CHECK SR0 TO INHIBIT ERROR HALT 
/IS SR0 SET? 

/YES, GO CHECK SRI TO LOOP ON ERROR 



/AC • ADDRESS WHERE ERROR WAS DETECTED 

/GET THE WORD TRANSMITTED 
/AC » THE GOOD WORD 

/GET THE WORD READ 

/AC » THE BAD WQRO - WORD READ 

/LOOP ON DATA ERROR IF SRm 

/LOOP? 

/NO, RETURN TO TEST 

/RETURN AND 00 SAME PATTERNtS) 



/DATA ERROR ROUTINE POR SERIAL LINE UNIT 



1734 0000 
1733 4777< 
1736 4433 



OERSLUi 



JMS 
SWHCHK 



ACTCHK 



/CHECK TO SEE |F RUNNING ON THE ACT LINE 
/CHECK SR0.1 TO INHIBIT ERROR HALT 



/DKCB.AA OPTION TEST 1 MA I NOEB.BS-OJOKA-B-I. IK PART 1 PALM V1<2A 16-JUN-7J 



/GO CHECK SRtlt TO LOOP ON ERROR 



/AQMDRESS where error was detected 

/GET THE WORD TRANSMITTED 
/AO-GOOD WORD. THE WORD TRANSMITTED 

/GET '« WORD READ 
/«S«THE RAD WgRD-THE WORD READ 
/WAS THE SIMULATOR SELECTED 
/ A C ■ T H E SIMULATOR CONTROL WORD 
/LOOP ON DATA ERROR IF SR1U 

/LOOP? 

/NO, RETURN Tg TEST 



1737 


7710 


SPA 


CLA 


1740 


5354 


JMP 


SLUSWH 


1741 


7840 


CLA 


CM4 


1742 


1334 


TAD 




1743 


7402 


HLT 


1744 


72810 


CLA 




1745 


1033 


TAO 


SLUXMT 


1746 


7402 




1747 


7200 


CLA 




1732 


1034 


TAO 


SLUREC 


1751 


7402 


HLT 


1752 


4776' 


JMS 


SIMWRQ 


1793 


7402 


HLT 


1754 


4433 


SLUSWH, SWHCHK 




1755 


7004 


RAL 




1756 


7700 


SMA 


CLA 


1757 


5734 


JMP I 


OERSLU 


1760 


3446 


JMP I 


TSTLOP 
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1761 
1762 
1763 
1764 
1765 
1766 
1767 
1770 
1771 
1772 
1773 
1774 
1775 



0000 

1021 
?>0S7 
7650 
5371 
1761 
3035 
7410 
2361 
2361 
1361 
3046 
3761 



CHKSIM, 



TAO 0P1SEL 



K200 
CLA 

i*4 

I CHKSIM 
CONTWO 



AND 
SNA 
JMP 

A S 
OCA 
SKP 
ISH CHKSIM 
ISi CHKSIM 
TAP CHKSIM 
OCA TSTLOP 
JMP I CHKSIM 



/CHECK FOR SIMULATOR 



/NO 

/GET THE CONTROL WORD 
/SAVE IT 



1776 1514 

1777 1526 

?200 



• 200 



/0KC8 


•AA OPTION 


TEST 1 MAINOEC0S. 


OJOKA-B.iL 


IK PART % 


PALia 


V142A 16 


■JUN.73 


mm 

S1BZ 


11110000 
llllllll 


00000000 

llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


iliiuii 

11110000 


llllllll 
00O000O0 


Ullllll 
00000000 


0200 
0300 


llilllli 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


Ullllll 
Ullllll 


Ullllll 
llllllll 


Ullllll 
Ullllll 


0400 
0500 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllil 
llllllll 


llllllll 
llllllll 


Ullllll 

iliiuii 


llllllll 
llllllll 


Ullllll 

llllllil 


0600 
(1700 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


Ullllll 
Ullllll 


llllllll 
llllllll 


llllllll 
llllllll 


1000 
1100 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


iliiuii 
iliiuii 


llililll 
llllllll 


Ullllll 
11111000 


1200 
1300 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


Ullllll 
Ullllll 


iliiuii 

Ullllll 


Ullllll 
Ullllll 


llllllll 
liiiaiii 


..400 
1300 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llilllli 
llllllll 


ilium 

Ullllll 


llllllll 
llllllll 


Ullllll 
Ullllll 


1600 
1780 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


Ullllll 

llllllll 


llllllll 
llllllll 


Ullllll 
llilUll 


llllllll 
llllllll 


Ullllll 
Ullllll 
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?9O0 



rose 
■■■me 



24M 



2600 
2700 



3800 
t '.:■:') 



3200 
3300 



3400 
3500 



5600 
3700 



/DKCS.AA OPTION TEST 1 MAINOEC»e«.OJDK*.B.L IK PART 1 PAU0 Vi«A 16.J U N.75 9188 PASE 2.27 



4000 
4100 

4200 
«je>0 

4400 
4500 

4600 
4700 



5000 
5100 

5200 
5300 

5400 
5500 

5600 
5700 



6000 
6100 

6200 
6300 

6400 
6500 

6600 
6700 



7000 
7100 

7200 
7300 

7400 
7500 

7600 

7700 



A OPTION 


TEST 1 


MAINOEC.0S.OJDKA 


• B«L IK PART 1 


PAU0 


V142A 


AC 


1251 


500QPS 


0100 


PJODEH 


4430 


ACTCHK 


1526 


GTF 


6004 


PIOREB 


0052 


ACTCK2 


1300 


HIT 


7402 


PJOSWH 


1727 


AOTCNT 


0101 


INACTV 


0076 


PI8XMT 


0051 


ACTFLG 


0133 


INTFLG 


0041 


PNOINT 


0075 


ACTRET 


1564 


INTRET 


1330 


POWFAL 


1441 


ADDTIH 


1363 


K0 


1436 


PRGENU 


5440 


AEPROR 


1475 


n 


0134 


RECFLC 


0073 


AEPSUM 


1507 


K10 


1471 


SETADI) 


1437 


BAOPAS 


■T077 


KU 


1473 


RETURN 


1420 


C7 


1470 


<12 


1474 


RMF 


6244 


CAF 


6037 


K125 


0061 


1TCENA 


4145 


CAL 


6103 


K2 


0125 


RTCFIG 


0074 


CHKACT 


1544 


<200 


0057 


RTF 


6005 


CHKSIH 


1761 


K252 


0060 


SAVADU 


0123 


CHKSUH 


1407 


K2525 


0063 


SAVCNT 


0030 


5tCU 


6136 


K3 


0126 


5AVL00 


1440 


CLKFLG 


K042 


«377 


0056 


SHE 


6101 


CLKSET 


1552 


K525Z 


0062 


SIMCHK 


4436 


CLKSNC 


H34 


K7 


0064 


5INCLH 


6160 


CLLE 


6135 


*7710 


0147 


SIMCNT 


0067 


CLRDET 


6156 


KCC 


6032 


SIMJNT 


1244 


SLP.SIM 


6150 


KCDF 


0131 


SJMLOl) 


1214 


C1.SK 


6137 


KCF 


6030 


SIMHRO 


1514 


CLSKWT 


4425 


KIE 


6035 


SKPCMN 


1252 


BNT 


0043 


KJHP 


0127 


5KP0AV 


6165 


CNT1 


P044 


KJMP7 


1465 


SKPFR8 


6162 


CONTIJD 


S055 


KJMPRT 


1472 


SKPRBR 


6157 


DATPIO 


1600 


KRB 


6036 


SKPSTH 


6167 


BATSLU 


1653 


KRMF 


0130 


SLUOAT 


4433 


nacE 


6576 


KRS 


6034 


SLUOER 


4434 


oacF 


6573 


KRTF 


0132 


SlUREC 


0054 


HBHD 


6572 


KSF 


6031 


SLUSWH 


1734 


BBSE 


6575 


KSFWAT 


4432 


SLUXMT 


0033 


BSSK 


6571 


'TEST 


1466 


SPI 


6045 


DBSS 


6577 


LINK 


0071 


SPL 


6102 


38ST 


6570 


IOAOSM 


6151 


STRFRU 


6161 


BBTO 


6574 


LODFRQ 


6163 


SWHCHK 


4435 


BERP1Q 


1711 


LOBSIM 


4437 


SWITCH 


0020 


BERSIU 


1734 


LOOPPC 


4423 


TCP 


6042 


DONLOP 


4424 


IOOPSW 


1237 


TEST 


0045 


EMARTC 


0145 


LQPOON 


1221 


TE3T1 


0200 


ENDPAS 


1400 


«10 


0066 


TEST10 


0663 


ERROR 


4427 


MJ44 


0102 


TESTU 


0733 


ERRPC 


1543 


X4 


0065 


TEST12 


0774 


EXPACO 


0070 


ONACTL 


1565 


TESTU 


1027 


FLGCK1 


1305 


OP11K1 


0000 


TEST14 


1124 


FLGCK2 


1310 


BP1SEL 


0021 


TESTIS 


1137 


FUCCK3 


1313 


0P2SEL 


0022 


TEST16 


1155 


FLOOK4 


1316 


PATCH 


0103 


TEST2 


0246 


FLGCK5 


1321 


PCLOOP 


1200 


TEST3 


0304 


FLGRST 


1467 


PIOOAT 


4426 


TEST4 


0337 



16.JyN.73 



tests 

TEST6 

TEST7 

TESTS 

TEST* 

TFL 

TLS 

TPC 

TSF 

TSFWAT 
TSTCMT 
TSTOSO 
TSTI.OP 
WATKSF 
WATTSF 
UTCLSK 
XMTFLG 
XORENA 



9100 

0413 
0432 
0503 
0547 
0620 
6040 
6046 
6044 
6041 
4431 
0047 
0135 
0046 
1342 
1331 
1353 
0072 
0374 



PACE 2.2S 



OPTION TEST 1 M*lNOEO.eS. DJOKA.B.C JK PART 1 MliW V142A 16.JUN-7S 



0180 »A6E 



ERRORS DETECTED I t 
LINKS OENERATEDI ' 
RUN.TIMEl H SECONDS 
2K CORE USED 



/DK08.AA OPTION TEST 1 MAINDEC.0S.DJOKA,a,L IK PART 2 PAL10 V t 42A 16.JUN.7S 
/DKC8.AA OPTION TEST 1 MA1NDeC.88.0jDKA.B.L Ik P«RT t 
/COPVHISMT (C) 1974, 1975 D I C I TAL EQUIPMENT CORPORATION 
/PRODRAMMESl BRUCE HANSEN 



/THE FOLLOWING LISTING "ILL CORRESPOND TO THE PA°ER TAPE LABELED 
/MAINOEC0S.DJDKA.B-PM2, IK VERSION PART 2, THI S PAPER TAPE AND 
/LISTING WILL BE THE SECOND OF FOUR IK SEGMENTED PAPER TAPES AND 
/LISTINGS FOR COMPUTERS WITH LESS THAN 4K OF MEMORY , 



/DKCB.AA OPTION TEST 1 MAINBEC-08-DJOKA-B-L IK P»RY 2 P»LU Vi*2i 16.JUN-7J 



/QKCB-AA OPTION TEST 1 MA INDEC.M.DJOKA.B.L IK PART 2 
/ 

/COPYRIGHT (C> 1974, 1979 DIGITAL EQUIPMENT CORPORATION 
/PROGRAMM E R| B«UCE HANSEN 



/PROCESSOR INSTRUCTIONS 

6007 CAF.6007 

6102 SPL56108 

6103 CAL"6103 
5101 SBE'6101 
74!"2 HLT.7432 
6244 RMF.6244 
60.-5 RTF'SOM 
6004 GTF.6004 



/CLEAR ALL FLAGS 
/SKIP ON AC LOW FLIP-FLOP 
/CLEAR AC LOU FLIP. FLO' 
/SKIP ON BATTERY EMPTY 

/RESTORE MEMORY FIELD 



6030 
6331 
6032 
6034 
6035 

6036 



6040 
6041 
6042 
6044 
6045 
6046 



6136 
6137 



6570 
6571 
6572 
6573 
6574 
6575 
6576 



/OPTION BOARD NUMBER 1 IDT'S 



//SERIAL LINE UNIT 

/RECEIVER IOTS 

KCF»6030 

KSF»6031 

KCCS332 

KRS»6034 

KIE36H55 



KRB.6036 

/TRANSMIT IOTS 

TPL"' 3, 
TSF>6041 
TCF«6042 
TPC36044 
SPI«6045 
TLS=6046 

/REAL TIME CRYSTAL CLOCK 

CLLE»6l35 

GLCL»U36 
CLSK«6137 

/12 BIT PARALLEL I/O 



/CLEAR RECEIVE FLAG i OON'T SET READER RUN 
/SKIP ON RECEIVE FLAG 

/CLEAR RECEIVE FLAG AND AC, SET READER RUN 
/READ RECEIVE BUFFER 
/AC 11"1 SET INTERRUPT ENABLE 
/AC Ull CLEAR INTERRUPT ENABLE 

/CLEAR RECEIVE FLAG AND AC, SET READER RUN AND READ 
/RECEIVE BUFFER 



/SET TRANSMIT FLAG 
/SKIP ON TRANSMIT FLAG 
/CLEAR THE TRANSMIT FLAG 
/LOAD TRANSMIT BUFFER AND TRANSMIT 

/SKIP IF TRANSMIT OR RECEIVE PLAS SET AND INT ENA SET TO 
/LOAD TRANSMIT BUFPER, TRANSMIT AND CLEAR TRANSMIT FLAG 



/AO lltl SET INTERRUPT ENABLE 
/AC 111! CLEAR INTERRUPT ENABLE 
/CLEAR CLOCK FLAG 
/SKIP ON SLOCK FLAG 



A 1 



DBST«6570 
BBSK»6971 
OBRO»6572 
DBCF56573 
0BTO»6574 
DBSE«6575 
DBCE«6574 



/SKIP ON DATA ACCEPTED, CLEAR DATA ACCEPTED AND DATA AVAILABLE 
/SKIP ON DATA ReA[jV FLAG 
/READ DATA INTO AC 0.11 

/CLEAR DATA READY FLAG, ISSUE DATA ACCEPTED OUT 
/LOAD AC 0.11 INTO BUFFER AND TRANSMIT DATA OUT 
/SET INTERRUPT ENABLE TO A 1 
/SET INTERRUPT ENABLE TO A 



16.JUN.75 



9102 
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/dkc6.aa option test l maindec»0s.djdka-b^l lk part 2 pal10 v142a 

6577 obs3=6577 /issue a strobe pulse 

/sujtch register settings 

/SR0=1 - inhibit error halt 

/SRl'l • LOOP ON ERROR 

/SR2=1 • LOOP ON TEST 

/SR3«l - HALT AT COMPLETION OF A PROGRAM PASS 

/OPTION BOARD 1 SIMULATOR IOTIS 

6150 CLRSIM.6153 /CLEAR SIMULATOR CONTROL REGISTERS 

6151 L0ADSM«6151 /LOAD SIMULATOR CONTROL WORD 1 

6156 CLR8ET.6156 /CLEAR READER RUN, STROBE, AMD DATA AVAILABLE CATCHER F/FIS 

S157 SKPRDR.6157 /SKIP ON READER RUN CATCHER F/F SET 

6160 SIMCLR>6160 /CLEAR CONTROL REGISTERS AND MOST OF LOGIC ON SIMUALTOR 

6161 STRFR8.6161 /START FREQUENCY CHECK ISLU OR RTc) 

6162 SKPFRQ.6162 /SKIP ON FREQUENCY CHECK I N PROGRESS 

6163 LODFR3.S6163 /READ FREQUENCY COUNT INTO AC 

6165 S-CJAV.6165 /SKIP ON DATA AVAILABLE CATCHER F/F SET 

6167 SKPSTR.6167 /SKIP ON STROBE CATCHER F/F SET 

/OPTION BOARD 1 SIMULATOR CONTROL WORD SIT ASSIGNMENTS 
/BIT COUNTER RESET 1=ACTIVAT[ 

/ J.NO ACTION 



/BIT 
/ 

/BIT 

/BIT 

/BIT 

/BIT 
/ 



PARALLEL I/O CLEAR DATA 
AVAILABLE SELECT 



NOT USED 



NOT USED 
NOT USED 



RTC FREQUENCY OR 
SLU FREQUENCY CHECK 



l'TSl 

7JDATA ACCEPTED IN 



1 = RTC 

a. SLU BAUD RATES 



/BIT 6 
/ 



/BIT 7 
/ 



/BIT 8 
/ 



REAL TIME CLOCK 
SLU EIA/20MA SELECT 
STOP BIT SELECT 



l = OFF 
= ON 

UEIA RECEIVE DATA 
a?28 MA RECEIVE DATA 

lil STOP BITS 
Si! STOP BIT 



/BIT 9 
/BIT 10 



BAUD RATE SELECT 
BAUD RATE SELECT 



31 T 5, 10, 11 ALL SI'S 
EQUALS 110 BAUD. EACH 



/BIT 11 
/ 



BAUD RATE SELECT 



INCREASING BIT SELECTS 
NEXT HIGHEST BAUD RATE', 



/8Ke««»A OPTION TEST 1 M»INOE0«H8«OJOK*.S-L IK PAP.T 2 PAU0 V142A 16-JJN-75 91*2 PASE 2.2 



MM .0 

0000 asas se» /program revision letter. mainqsc-0s.,!)jdk*p8 

aaai 6244 RHP /restore hihbry rjttos 

0832 3403 JMP I 3 /RETURN TO INTERRUPT SERVICE ROUTINE 

0801 1244 SJMINT/SKPCHN/SIMeHK/RTCINT/SLUJNT / INTERRUPT SERVICE ROUTINE! 

53S0 "20 

0020 3000 shitcHi a 

0021 saaa opiseli 2000 

/BIT 0«0 USE LOCATION 2a AS A PSEUOO SWITCH REGISTER 

/BIT 011 USE HARDWARE TRONT PANEL SWITCH REGISTER 

/BIT 111 HAS OPTION 1 

/BIT 2*1 HAS OPTION 2 

/BIT 3«1 HAS SA CPU SIMULATOR 

/BIT 4sl HAS SA OPTION j>2 SIMULATOR 

/BIT 5ll PROGRAM ON P0P.8A XOR(REQU!RES BIT 4 SET ALSO) 
/BIT 6.1 HAS POP.SE TYPE CPU 

/BIT 7.11 MEMORY SIJE a 0'SHK, 37»32K', MEMORY 
/SIZE CAN BE INCREASED If IK INCREMENTS BY ADDING 
/ONE TO THE NUMBER IN BITS 7 . 11 
3022 0030 0P2SEL. 3 /BIT IS SET fOR THE ACT LINE 

4433 LOOPPC'JMS I, 

0023 1230 PCLOOP 

4424 DQNLOP=JMS I, 

0024 1221 LOPDON 

4425 CLSKWT>JMS I, 
0023 1353 WTCLSK 

4426 PIODATeJMS I, 

0026 1600 DATPIO 

4427 ERRORs JMS I, 

0027 1475 AERROR 

4430 MODERNS I, 
0033 1711 DERPIO 

4431 TSFWAT.JMS I, 

0031 1331 WATTSF 

4432 *SFH4T=JMS I, 

0032 1342 WATKSP 

4433 SLUOAT'JMS I, 

0033 1653 DATSLU 

4434 SLUDER'JMS I, 
3034 1734 OERSLU 

4435 SWHCHK=JMS I, 

0035 1407 CHKSWH 

4436 SIMCHK=JMS I, 

0036 1761 CHKSIM 

4437 LODSIM'JMS I , 

0037 1214 SIMLOO 
4145 RTCENA'JMS ENARTC 



/DKC8.AA OPTJON T E 5T 1 MA I ND E C.0S-DJDKA.a»L IK PART 2 PAL13 V142A 16.JUN-75 



9102 



PACE 2»3 



5440 
0040 1430 



PRGENUP JMP j , 

ENC-PAS 







/LOCATIONS U 


0041 


3000 


I NTFLOi 





0042 


H030 


CLKFLG, 


a 


0043 


H000 


CNT. 


a 


3044 


!!000 


CNU, 





0045 


3000 


TEST, 


a 


0046 


3000 


TSTLOP, 


3 


3047 


3000 


TSTCNT, 


? 


0053 


0000 


SAVCNT, 


a 


0051 


3000 


PIOXMT, 


3 


0052 


0033 


P10REC, 


3 


0053 


3000 


SLUXMT, 





0054 


3000 


SLUREC, 


3 


0055 


?000 


CQNTWD, 


3 


3056 


3377 


K377, 


377 


0057 


"200 


K200, 


233 


0060 


0252 


K252, 


252 


0061 


.3125 


K125, 


125 


0062 


5252 


K5232, 


5252 


0063 


2525 


K2529, 


2525 


0064 


0007 


K 7 1 


7 


0065 


7774 


H4| 


-4 


0066 


7770 


M13, 


-10 


3067 


3000 


SIMCNT, 


3 


0070 


3000 


EXPACDi 


3 


0071 


3 030 


LINK, 





0072 


3000 


XMTFLG i 


3 


0073 


3000 


RECFLG, 





0074 


3000 


RTCFLG, 





0075 


0000 


P'lOINT, 





0376 


0000 


INACTV, 





0077 


6520 


BADPAS, 


6520 


0100 


6500 


GOODPS, 


6500 


0101 


7634 


AC T C N T i 


•1<4 


0102 


7634 


M144, 


-144 



/AOT LINE ERROR RETURN TO FIELO 7 
/ACT LINE GOOU RETURN TO FIELD 7 



/ROUTINE TO SETUP P I ELD 3 TO HANDLE INTERRUPTS MO* ANOTHER FIELD 



3103 3000 PATCHi 3 

0134 1503 TAD I PATCH /GET THE INTERRUPT SERVICE ADDRESS 

0105 3123 OCA SAVADD /SAVE INTERRUPT ADDRESS 

0136 6201 CDF /CHANGE DATA FIELD TO FIELD 

3137 1130 TAO KRMF /GET THE INSTRUCTION R«F 

3113 3524 OCA I Kl /PUT IT IN LOCATION 1 OF FIELD 

0111 1127 TAO KJMP /GET THE INSTRUCTION JMP [ 3 

0112 3525 OCA I K2 /PUT IT IN LOCATION 2 OF FIELD 

0113 1123 TAD SAVADD /GET THE INTERRUPT SERVISE ADDRESS 

0114 3526 OCA I K3 /PUT JT IN LOCATION 3 IF FIELD 
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BUS 


6224 




RJF 




0116 


1131 




TAD 


KCOF 


0117 


3120 




OCA 


i*l 


0120 


7402 




H1.T/CDF 




0121 


2103 




ISJ 


PATCH 


0122 


5503 




JMP I 


PATCH 


0123 


0000 


SAVADU, 






0124 


0001 


Kli 


1 




0125 


3002 


K2i 


2 




0126 


0003 


K3, 


3 




0127 


5403 


KJMP, 


JMP I 


3 


0135 


6244 


KRMF , 


6244 




0131 


6201 


kcpp. 


cor 




0132 


6005 


KRTF, 


RTF 




0133 


?000 


AOTrLQi 







0134 


C000 


CLKSNC, 








/SET THE PROGRAM FIELD INTO THE AC 
/AND [T TO THE COF INSTRUCTION 
/PUT IT IN THE NEXT LOCATION 
/EXECUTE IT 

/ADD 1 TO THE ENTRANCE 
/RETUHN 



0135 J000 

0136 1022 

0137 7700 

0140 5535 

0141 6002 

0142 6272 

0143 4530 

0144 5535 



/THIS ROUTINE US E0 WHEN RUNNING ON THE AcT LINE TO SIGNIFY THAT NO 
/ERRORS HAVE BEEN ENCOUNTERED 

TSToODi 



TAD 
SMA 
JMP 
IOF 
CIF 
JMS 
JMP 



0P2SEL 
CLA 

TSTGOD 
70 

GOOOPS 
TSTGOD 



/GET THE HARDWARE FLAG 

/ARE HE ON THE ACT LINE? 

/NO i RETURN TO THE PHOGRAM 

/TURN THE INTERRUPT OFF 

/CHANGE THE INSTRUCTION TO FIELD 7 

/GO TO PROM 

/RETURN Tp THE PROGRAM 



0145 0000 

0146 1022 

0147 7710 

0150 7301 

0151 6135 

0152 7200 

0153 5545 



ENARTCi 

TAD 



SPA 



0P2SEL 
CLA 



CLA CLL IAC 
CLLE 
CL« 

JMP I E N A R T C 



/CHECK TO SEE IF ON ACT LINE 
/IF NOT CLEAR RTC I NT ENA 
/SET AC BIT 11 

/LOAD BIT 11 INTO CLOCK INT ENA 



IFDEF 0P13K <PAGE> 



0203 6160 

0201 4423 

0202 7777 

0203 4103 
0234 1252 
0205 3042 
0236 7300 



/TE^T 17 - CHECKS FOR AN INCREMENTING DATA PATTERN, 



TEST17 



SI"CLR 
LOOPPC 
-1 

JMS PATCH 
SKPCHN 
DCA CLKFLG 
CLA CLL 



/CLEAR THE SIMULATOR 
/SET UP TEST LOOPING ADDRESS 
/SIMULATOR ITERATION COUNTER 
/GO SET UP FOR INTERRUPT RETURN 

/SET INTERRUPT TO IGNORE RTC FLAGS 
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3207 
0210 
0211 
0212 
0213 
0214 
0215 
0216 
0217 
0220 
0221 



3050 
3047 
4456 
4000 
4437 
3041 
1047 
3051 
4426 
4430 
4424 



OCA SAVCNT 

OCA TSTCHT /CLEAR PROGRAM TEST COUNTER 

SIMCHK /CHECK FOR SIMULATOR 

«000 /SIMULATOR CONTROL WORD 

LODSIM /LOAD THE SIMULATOR IF SELECTED 

DCA INTFLG /CLEAR PROGRAM INTERRUPT FLAG 

TAD TSTCNT /GET TEST COUNTER 

DCA PIOXMT /SET THE WORO TO BE TRANSMITTED > TQ It 

PIODAT /GO TRANSMIT AND COMPARE THE WORD 

PIODER /DATA ER'QR 

OONLOP /DONE OR LDOP ON TEST IF SR2»1 



/TEST 18 - CHECKS FOR AN INCREMENTING DATA PATTERN WITH THE INTERRUPT 
/ENABLE DISABLED WHICH ALLOWS FOR FASTER READING BECAUSE OF NO SKIP CHAIN 



0222 
0223 
0224 
0225 
0226 
0227 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0240 
0241 
0242 
0243 
0244 
0245 
0246 
0247 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0262 
0261 
0262 
0263 
0264 
0265 
0266 



4423 
7777 
7300 
3050 
3047 
4436 
4000 
4437 
6007 
4145 
6001 
3041 
1047 
3051 
1051 
6574 
6571 
4427 
7240 
6572 
3052 
S573 
6570 
4427 
6570 
7410 
4427 
1031 
7J41 
1052 
7640 
4430 
6037 
4145 
6001 
6572 
7640 



TESTIS , LOOPPC 
•1 



CLA CLL 

DCA SAVCNT 

DCA TSTCNT 

SIMCHK 

4000 

LODSIM 

CAF 

RTCENA 
ION 

DCA INTFLG 
TAD TSTCNT 
OCA PIOXMT 
TAO PIOXMT 
DBTD 
OBSK 
ERRQP 
CLA CMA 
OBRD 

OCA PIOREC 

OBCF 

OBST 

ERROR 

DBST 

SKP 

ERROR 

TAD PIOXMT 
CIA 

TAO PIOREC 
S2A CLA 
PIODER 
CAF 

"TCENA 
ION 
OBRD 
SJA CLA 



/SETUP TEST COUNT AND TEST LOOP ADDRESS 
/SIMULATOR ITERATION COUNTER 



/CHECK FOR THE SIMULATOR 

/SIMULATOR CONTROL WORO 

/LOAD SIMULATOR IF SELECTED 

/CLEAR ALL FLAGS 

/SET REAL TIME CLOCK INT ENA 

/TURN THE INTERRUPT ON 

/CLEAR PROGRAM INTERRUPT FLAG 

/GET THE TEST COUNTER 

/PUT IT IN THE WORD TO TRANSMIT 

/GET THE WORO 

/TRANSMIT IT 

/SKIP ON DATA READY 

/DATA READY FLAG FAILED TO SET 

/SET THE AC TO ALL ONE'S 

/READ THE DATA BUFFER 

/SAVE THE WORO READ 

/CLEAR THE DATA READY, FLAG 

/SKIP AND CLEAR DATA ACCEPTED AND DATA AVAIL, 
/DRSF FAILAED TO SET DATA ACCEPTED 
/CHECK THAT DATA ACCEPTED CLEARED 

/DATA ACCEPTED STILL SET 

/COMPARE THE WORD TRANSMITTED WITH THE WORD READ 



/PARALLEL I/O DATA ERROR 

/CLEAR ALL INCLUDING THE TRANSMIT BUFFER 

/SET REAL TIME CLOCK I NT ENA 

/TURN THE INTERRUPT BACK ON 

/READ THE BUFFER 

/DID INIT CLEAR THE BUFFER? 
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0267 
0270 
0271 
0272 
0273 



4427 
1041 
764a 
4427 
4424 



ERROR 

TAD INTFLG 
52* CLA 
ERROR 
OONLOP 



/NO, 1NIT FAILED TO CLEAR BUFFER 
/GET THE PRUGHAM INTERRUPT FLAG 

/PROGRAM INTERRUPTER WITHOUT INT EN* SET 
/DONE OR REPEAT TEST IF SR2«1 



•••.».•••.»•••»•»»••«•.•»»»•.*••»•...••••••».•»••••* 

/TEST 19 . IS ONLY TESTED WHEN THE SIMULATOR IS SELECTED, THE TEST 
/CHECKS THAT STROBE CAN BE SET BY OBSS AND TP3 AND THAT TIME STATE 1 
/CAN CLEAR IT, 

/•« • »••" •» "•«•• * »•«••• 



0274 
0275 
0276 
0277 
0300 
0331 
0302 
0333 
0304 
0303 
0306 
0307 
0310 
0311 
0312 
0313 
0314 
0315 
0316 
0317 
0320 
0321 
0322 
0323 
0324 
0325 
0326 
03S7 
0330 
0331 
0332 
0333 
0334 
0335 
0336 
0337 
0340 
0341 
0342 
0343 



4423 
7777 
4436 

4000 

4437 
1021 
3057 
7640 
5307 
5706 
?530 
6007 
4145 
3041 
6001 
6156 
6167 
'610 
4427 
6577 
7440 
4427 
6167 
4427 
6156 
6167 
7410 
4427 
6577 
6167 
4427 
6196 
6167 
7410 
4427 
1041 
7640 
4427 
6002 
4424 



TEST!?, LOOPPC 
•1 

SIMCHK 

4000 

LODSIM 

TAD 

AND 

SEA 

JMP 

JMP I 
TEST23 
OAF 

RTCENA 

DCA 

ION 

CL"OET 
SKPSTR 
SKP 
ERROR 
DBSS 
SZA 
ERROR 
SKPSTR 
ERROR 
CLROET 
SKPSTR 
SKP 
ERROR 
OBSS 
SKPSTR 
ERROR 
CLROET 
SKPSTR 
SKP 
ERROR 
■ TAD 
SHA 
ERROR 
I OF 

DONLOP 



OPtSEL 

K200 

CLA 

,+3 

.*% 



INTFLG 



INTFLG 
CLA 



/SETUP TEST COUNT AND TEST LOOP ADDRESS 

/SIHULATOR ITERATION COUNTER 

/CHECK TO SEE IF SIMULATOR IS SELECTED 

/SIMULATOR CONTROL WORD 

/LOAD THE CONTROL WORD 

/RECHECK THE SIMULATOR BIT 

/MASK OUT FOR SIMULATOR SIT 

/IS IT SET 

/YES GO CHECK THAT STROBE SETS AND CLEARS 

/GO TO NEXT TEST 

/ADDRESS OF THE NEXT TEST 

/CLEAR ALL FLAGS 

/SET REAL TIME CLOCK INT ENA 

/CLEAR THE PROGRAM INTERRUPT FLAS 

/TURN THE INTERRUPT ON 

/CLEAR SIMULATOR DETECTOR F/r r S 

/SKIP ON STROBE DETECTOR F/F SET 

/STROBE IS SET TO A ONE 
/ISSUE A STROBE PULSE 

/ORSS SKIPPED OR READ SOMETHING INTO THE AC 
/SKIP ON STROBE DETECTOR F/F SET 

/DBSS FAILED TO SET STROBE OR SIMULATOR DETECTOR F/F 
/CLEAR READER RUN AND STROBE DETECTOR t If 
/SKIP ON STROBE DETECTOR F/F SET 

/STROBE STILL SET OR DETECTOR F/F DION'T CLEAR 

/ISSUE ANOTHER STROBE PULSE 

/SKIP ON STROBE DETECTOR F/F SET 

/DBSS FAILED TO SET STROBE OR DETECTOR F/F 

/CLEAR READER RUN AND STROBE DETECTOR F/F 

/SKIP ON STROBE DETECTOR F/F SET 

/STROBE STILL SET OR DETECTOR F/F DION'T 
/CHECK THAT THE PROGRAM DIDN'T INTERRUPT 

/PROGRAM INTERRUPTED 
/TURN THE INTERRUPT OF 
/REPEAT TEST IF SR « 1000 



/DKC8.AA OPTION TEST 1 MAlNOEC08»OjO K A.B*L IK PART 2 PA L W V142A 16.JUN-75 9102 PAgE 2.7 
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/TEST 20 • IS ONLY TESTED WHEN SIMULATOR JS SELECTED, THE TESTS CHECKS 
/THAT DATA AVAILABLE CAN BE SET BY D9TD AND CLEARED BY CAF, 



0344 

0345 
0346 
0347 
035B 
0351 
0352 
0353 
0354 
0355 
0354 
0357 
BUT- 
0361 
0362 
0363 
0364 
0365 
0366 
0367 
0370 
0371 
0372 
0373 
0374 
0375 
0376 
0377 
040? 
0401 
0402 
0403 
0404 
0405 
0406 



4423 
7777 
4436 
4000 
4437 
6007 
4145 
3041 
6001 
6156 
6165 
7610 
4457 
6574 
6571 
4427 
6165 
4427 
6156 
6165 
4427 
6007 
4145 
6001 
6156 
6165 
7610 
4427 
6571 
7610 
4427 
1041 
7640 
4427 
4424 



TEST20, LOOPPC 



• 1 




SIMCHK 




4000 




LODSIM 




CAF 




RTCENA 




OCA 


I NTFLG 


I ON 




CLROET 




SKPDAV 




SKP 


CLA 


ERROR 




DBTD 




OBSK 




ERROR 




SKPDAV 




ERROR 




CLRDET 




SKPDAV 




ERROR 




CAF 




RTCENA 




ION 




CLRDET 




SKPDAV 




SKP 


CLA 


ERROR 




DBSK 




SKP 


CLA 


ERROR 




TAD 


I NTFLG 


S2A 


CLA 


ERROR 




OONLOP 





/SETUP TEST COUNT AND TEST LOOP ADDRESS 

/SIMULATOR ITERATION COUNTER 

/CHECK TO SEE IF SIMULATOR IS SELECTED 

/SIMULATOR CONTROL WORD 

/LOAD THE CONTROL WORD 

/CLEAR ALL FLAGS 

/SET REAL TIME CLOCK I NT ENA 

/CLEAR THE PROGRAM INTERRUPT FLAS 

/TURN THE INTERRUPT ON 

/CLEAR SIMULATOR DETECTOR F/FI3 

/SKIP ON DATA AVAILABLE DETECTOR F/F 

/C*F FAILED TO CLEAR DATA AVAIL, OR IT IS STUCK ON 

/TRANSMIT AND SET DATA READY AND DATA AVAILABLE 

/SKIP ON DATA READY 

/DBTD FAILED TO SET DATA READY 

/SKIP ON DATA AVAILABLE DETECTOR F/F 

/DATA AVAILABLE FAILED TO SET 

/CLEAR DETECTOR F/F'S 

/SKIP ON OATA AVAILABLE DETECTOR F/F 

/DATA AVAILABLE GOT CLEARED 

/CLEAR ALL FLAGS 

/SET REAL TIME CLOCK INT ENA 

/TURN THE INTERRUPT ON 

/CLEAR THE SIMULATOR DETECTOR F/F'S 

/SKIP ON DATA AVAILABLE DETECTOR F/F 



/ 1 N I T 
/SKIP 



FAILED TO CLEAR DATA AVAILABLE 
ON DATA READY 



/INIT FAILED TO CLEAR OATA READY 
/GET THE PROGHAM INTERRUPT FLAG 

/ERROR i PROGRAM INTERRUPTED 
/DONE, OR REPEAT TEST IF SR=1000 



0407 4423 

0410 7777 

0411 4436 

0412 4000 

0413 4437 

0414 6007 

0415 4145 

0416 30*1 

0417 6001 



/TEST 21 - IS ONLY TESTED UHEN THE SIMULATOR IS SELECTED, THE TEST CHECKS 
/THAT DBTD WILL SET DATA AVAILABLE AND THAT DBST WILL CLEAR IT, 
/......•••• • 

TEST21, LOOPPC /SETUP TEST COUNT AND TEST LOOP ADDRESS 

.1 /SIMULATOR ITERATION COUNTER 

SIMCHK /CHECK TO SEE IF THE SIMULATOR IS SELECTED 

4000 /SIMULATOR CONTROL WORD 

LODSIM /LOAD THE SIMULATOR CONTROL WORD 

CAF /CLEAR ALL FLAGS 

RTCENA /SET REAL T I ME CLOCK INT ENA 

OCA I NTFLG /CLEAR PROGRAM INTERRUPT FLAG 

ION /TURN THE INTERRUPT ON 
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0420 
0421 
0422 
3423 
0424 
0425 
0424 
0427 
0433 
0431 
0432 
043! 
0434 
0435 
0436 
0437 
044? 
0441 
0442 
0443 
0444 
0445 
0446 
0447 
0458 
0451 
0452 
0493 
0494 
0455 
0456 
0457 



6156 
6165 
'610 
4427 
6574 
6571 
4427 
6165 
4427 
6156 
6165 
4427 
6573 
6571 
7610 
4427 
6156 
6165 
4427 
6570 
4427 
6156 
6165 
7610 
4427 
6570 
7610 
4427 
1041 
7640 
4427 
4424 



CLRDET 

SKPDAV 

SKP 

ERROR 

DBTO 

OBSK 

ERROR 

SKPDAV 

ERROR 

CLRDET 

SKPDAV 

ERROR 

OBCF 

OBSK 

SKP 

ERROR 

CLRDET 

SKPDAV 

ERBOR 

DBST 

ERROR 

CLROET 

SKPDAV 

SKP 

ERROR 

DBST 

SKP 

ERRQP 

TAD 

SZA 

ERRQP 

DONLDP 



/test 22 

/THAT ' 
/•••• 



/CLEAR SIMULATOR DETECTOR F/F'S 
/SKIP ON SIMULATOR DATA AVAIL, DETECTOR F/F 

/DATA AVAILABLE SET AFTER INITIALIZE 
/TRANSMIT.SET DATA AVAILABLE AND DATA READY 
/SKIP ON DATA READY 
/DATA READY FLAG NOT SET 
/SKIP ON DATA AVILABLE DETECTOR F/F 
/DBTD FAILED TO SET DATA AVAILABLE 
/CLEAR SIMULATOR DETECTOR F/F'S 
/SKIP ON DATA AVAILABLE DETECTOR F/F 
/DATA AVAILABLE GOT CLEARED 
/CLEAR DATA READY FLAG SET DATA ACCEPTED 
/SKIP ON DATA READY FLAG 

/DBCF FAILED TO CLEAR DATA READY 
/CLEAR SIMULATOR DETECTOR F/F'S 
/SKIP ON SIMULATOR DETECTQR F/F 
/DATA AVAILABLE GOT CLEARED 
/SKIP ON DATA ACCEPTED, DATA AVAILABLE 
/DBCF FAILED TO SET DATA ACCEPTE5 
/CLEAR SIMULATOR DETECTOR //F I S 
/SKIP ON DATA AVAILABLE SIMULATOR DETECTOR F/F 

/DBST FAILED TO CLEAR DATA AVAILABLE 
/SKIP ON DATA ACCEPTED 

/1ST DBST PAILCB TO CLEAR DATA ACCEPTED 
/GET THE. PROGRAM INTERRUPT FLAG 

/PROGRAM INTERRUPTED 
/DONE OR REPEAT TEST IS SR » 1000 

«*#*»«#»««#«»*»*••«*»»*»«»«»«»«»»»«#*#«»««•«»**«• 

22 . is only tested when simulatoh is selected, the t e st checks 

DATA AVAILABLE CAN BE SET BY DBTO AND CLEARED 9y »TS1» , 



INTFLG 
CLA 



4423 

7777 
4436 



B46a 

0461 
3462 
0463 

8464 4437 

0465 6007 

0466 4145 

0467 6031 
0473 3041 

0471 6156 

0472 6165 

0473 7610 

0474 4427 

0475 6574 

0476 6571 

0477 4427 
0500 6165 



YEST22, LOOPPC 
-1 

SIMCHK 
6000 
L0D5IM 
' CAP 
RTCENA 
ION 
OCA 

CLRDET 
- SKPDAV 
SKP 
ERROR 
DBTO 
OBSK 
ERROR 
SKPDAV 



/SETUP TEST COUNT AND TEST LOOP ADDRESS 

/SIMULATOR ITERATION COUNTER 

/CHECK FOR SIMULATOR 

/SIMULATOR CONTROL WORD 

/LOAD THE CONTROL WORD 

/CLEAR ALL FLAGS 

/SET REAL TIME CLOCK INT ENA 

/TURN THE INTERRUPT ON 

/CLEAR PROGRAM INTERRUPT FLAG 

/CLEAR SIMULATOR DETECTOR F/F'5 

/SKIR ON DATA AVAILABLE OETECTOR F/F 

/DATA AVAILABLE SET AFTER INITIALIZE 

/TRANSMIT . SET DATA READY AND DATA AVAILABLE, 

/SKIP ON DATA READY 

/DBTD FAILED TO SET DATA READY 

/SKIP ON DATA AVAILABLE 
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0501 
0502 
0503 
0504 
0505 
0506 
0507 
0512 
0511 
0512 
0513 
0514 
0515 
0516 
0517 
0520 
0521 
0522 
0523 
0524 
0525 
0526 
0527 



4427 
6156 
6165 
7610 
4457 
6007 
4145 
6001 
6571 
7610 
4427 
6574 
6165 
4427 
6156 
6165 
7610 
4427 
6007 
6571 
7610 
4427 
4424 



ERROR 

CLRDET 

SKPDAV 

SKP 

ERROR 

OAF 

RTCENA 

ION 

OBSK 

SKP 

ERROR 

DBTD 

SKPDAV 

ERROR 

CLROET 

SKPDAV 

SKP 

ERROR 

CAP 

OBSK 

SKP 

ERROR 

OQNLOP 



CLA 



/D3TD FAILED TO TO SET DATA AVAILABLE 
/CLEAR SIMULATOR DETECTOR F/F'S 
/SKIP ON DATA AVAILABLE DETECTOR F/F 

/TS1 FAILED TO CLEAR DATA AVAILABLE 

/CLEAR ALL FLAGS 

/SET REAL TIME CLOCK INT ENA 

/TURN THE INTERRUPT BACK ON 

/SKIP ON DATA READY 

/INIT FAILED TO CLEAR DATA READY 

/TRANSMIT „ SET DATA READY AND DATA AVAILABLE 

/SKIP ON DATA AVAILABLE DETECTOR F/F 

/DATA AVAILABLE FAILED TO SET 

/CLEAR SIMULATOR OETECTOR F/F'S 

/SKIP ON DATA AVAILABLE DETECTOR F/F 

/TS1 FAILED TO CLEAR DATA AVAILABLE 
/CLEAR ALL FLAGS 
/SKIP ON DATA READY 

/INIT FAILED TO CLEAR DATA READY 
/DONE OR REPEAT TEST IF SR « 1000 



//first section of serial line unit oiasnostic 
/test 23 - try to clear slu int ena by issuing a k i e command', then test the slu xmit 
/flag to set by tfl and clear by tcp", the flag is checked with tsf and spi, if an 

/INTERRUPT OCCURRED, IT MAY BE DUE TO I NT ENA NOT BEING CLEARED BY KIE AND DATA BIT 11 ON A 0, 
/»#*•«••»»•*•••»•«#•»««•«»•««••»•*••••*••»••«••••••«••••#•«,«••««»••••« 



0530 
0531 
0332 
0533 
0534 
0555 
0536 



0537 
0543 
BS4t 
0542 
0543 
0544 
0545 
0546 
0547 
0550 
0551 
0552 
0553 
0554 
0555 



4103 
1252 
4423 
7777 
4436 
4000 
4437 



3041 
6007 
4145 
6001 
6331 
7610 
4427 
6035 
7610 
4427 
1041 
7640 
4427 
6040 

7410 



TEST23 , 



JMS PATCH 
SKPCHN 
LOOPPC 
-t 

5IMCHK 

4000 

LODSIM 



OCA INTFLG 
CAP 

RTCENA 

ION 
KSF 

SKP CL* 

ERROR 

Kit 

SKP CLA 
FRRO n 

TAO INTFLG 

SZA CLA 

ERROR 

TFL 

SKP 



/SETUP TEST COUNT ANO SCOPE LOOPING ADDRESS 

/SIMULATOR ITERATION COUNTER 

/CHECK TO SEE IF SIMULATOR IS SELECTED 

/CONTROL WORD FOR THE SIMULATOR 

/LOAD SIMULATOR IF SELECTED ALSO SET SCOPE 

/LOOP * THIS ADDRESS [r SIMULATOR SELECTED 

/OTHERWISE SCOPE LOOP IS THIS ADDRESS *1 

/CLEAR PROGRAM IMTERRUPT FLAG 

/CLEAR ALL FLAGS * SET SLU I NT ENA 

/Set real time clock int ena 

/turn the interrupt on 

/check to see if receive flag is a 

/receive flag set or ksf skipped 
/clear slu int ena 

/kie skipped, 



/PROGRAM INTERRUPTED 
/SET THE TRANSMIT FLAG 
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9102 



PAGE 



3936 4427 

0537 6041 

0560 4427 

ESS41 6043 

0562 7413 

3363 4427 

0564 6031 

0565 7410 

0566 4427 

0567 1041 

0570 7640 

0571 4427 

0572 6042 

0573 7410 

0574 4427 

0575 6041 

0576 7410 

0577 44S7 

0600 6045 

0601 7610 

0602 4427 

0603 6031 

0604 7610 

0605 4427 

0606 1041 

0607 7640 

0610 4427 

0611 4424 



ERROR 

Tsr 

ERROR 

SP! 

SKP 

ERROR 

KSF 

SKP 

ERROR 

TAD INTFLG 
SZA CLA 
ERROR 

Tcr 

SKP 

ERROR 

TSF 

SKP 

ERROR 

SPI 

SKP CLA 

ERROR 

KSF 

SKP CLA 
ERRO" 

TAD INTFLG 
SZA CLA 
ERROR 
DONLOP 



/TFL SKIPPED 
/SKIP ON XMIT FLAG 

/TFL * TP3 FAILED TO SET XHIT f LAG OR NO SKIP OCCURRED 
/SKIP ON X-IT/RECEIVE + INT ENA ON A 1 

/SPI SKIPPED OR KIE AND DATA li L FAILED TO CLEAR INT ENA 
/SKIP ON RECEIVE FLAG 

/RECEIVE FLAG SET BY A80VE CODE 
/GET THE PROGRAM INTERRUPT FLAG 

/PROGHAM INTERRUPTED WITHOUT INT ENA SET 
/CLEAR TRANSMIT FLAS 

/TeF SKIPPED 
/SKIP ON XMIT FLAG 



/TCP * TP3 FAILED TO CLEAR XHtt FLAG 
/SKIP ON XMIT/RECEIVE * t NT ENA ON A 1 



/SPI SKIPPED WITH XMIT FLAG t INT ENA A 
/SKIP ON RECEIVE FLAG 



/RECEIVE FLAG GOT SET SY ABOVE CODE 
/GET THE PROGRAM INTERRUPT FLAG 



/PROGRAM INTERRUPTED WITHOUT I NT ENA * FLAG 
/REPEAT TEST IF NOT flONE OR LOOP ON TEST IF SRSul 



/»«»e»»«***»*»*»#**»»e*«»»»»»«*»#*«*»»«**«*e 

/TEST 24 . CHECKS THAT OAF WILL CLEAR THE TRANSMIT FLAG, 
/CHECKS THAT NO INTERRUPTS OCCURRED , 

/ » ••«•» 



THE PROGRAM 



0612 4423 

0613 7777 

0614 4436 

0615 4000 

0616 4437 



061? -5041 

0620 6007 

0621 4145 

0622 6001 

0623 6035 

0624 6040 

0625 6041 

0626 4427 

0627 6045 

0630 7410 

0631 4427 

0632 6007 

0633 6041 

0634 7410 



TEST24, LOOPPC 
■1 

SIMCHK 

4000 

LOOSIM 



OCA INTFLG 
CAP 

RTCENA 

ION 

KJE 

TFL 

TSF 

ERROR 

SPI 

SKP 

ERROR 

CAP 

TSF 

SKP 



/SETUP TEST COUNT AND SCOPE LOOPING ADDRESS 

/SIMULATOR ITERATION COUNTER 

/CHECK TO SEE IF SIMULATOR IS SELECTED 

/CONTHOL WORD FOR THE SIMULATOR 

/LOAD SIMULATOR IF SELECTED ALSO SET SCOPE 

/LOOP » THIS ADDRESS IP SIMULATOR SELECTED 

/OTHEHWISE SCOPE LOOP IS THIS ADDRESS *1 

/CLEAR PROGRAM INTERRUPT FLAG 

/SET REAL TIME CLOCK INT ENA 
/TURN THE INTERRUPT ON 
/CLEAR SLU I NT ENA 
/SET THE TRANSMIT FLAG 
/SKIP ON THE XMIT FLAG 

/TFL AND TP3 FAILED TO SET THE XMIT FLAG 
/SKIP ON XMIT/RECEIVE ♦ INT ENA 

/SPI SKIPPED WITHOUT I NT ENA SET OR KIE FAILED 

/CLEAR ALL FLAGS 

/SKIP ON THE TRANSMIT FLAG 
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0635 
0636 
0637 
0649 
0641 
0642 
0643 
0644 



4427 
1041 
7640 
4427 
6031 
7610 
4427 
4424 



ERROR 

TAD INTFLG 
SEA CLA 
ERROR 
KSF 

SKP CLA 

ERROR 

DONLOP 



/SBUF INIT HIGH FAILED TO CLEAR XMIT FLAG 
/GET THE PROGRAM INTERRUPT FLAG 



/PROGRAM INTERRUPTED CHECK I NT ENA', 
/SKIP ON RECEIVE FLAG 



/RECEIVE FLAG SET BY ABOVE CODE 

/REPEAT TEST IF NOT DONE OR LOOP IF SR2»1 



«•••*••*«••.••»**•«•«»««.».«»»*••«• 

/TEST 25 . CHECK THAT SAF JILL SET SLU INT ENABLE AND THAT KIE 
/AND DAT* 11 ON A WILL CLEAR IT USING XMIT FLAG TO INTERRUPT ON, 
/SPI IS CHECKED TO SKIP AND NOT TO SKIP, 

/•••»•«« • » « » •••** 



0645 4423 

0646 7777 

0647 4436 

0630 4000 

0631 4437 



0652 3041 

3653 6037 

0654 4149 

0655 6031 
3656 6041 
0657 7410 

0660 4427 

0661 6045 

0662 7410 

0663 4427 

0664 1041 

0665 7640 

0666 4427 

0667 6040 

0670 6041 

0671 4427 
067J 6045 

0673 4427 

0674 2041 

0675 4427 

0676 7200 

0677 6033 
0730 3041 

0701 6001 

0702 6041 

0733 4427 

0734 4045 

0705 7410 

0706 4427 

0707 1041 

0710 7640 

0711 4427 

0712 6042 



TEST25, LOOPPC 
•1 

SIMCHK 

4000 

LODSIM 



OCA INTFLG 
CAP 

RTCENA 

ION 

TSF 

SKP 

ERROR 

SPI 

SKP 

ERROR 

TAD INTFLG 

SZA CLA 

ERROR 

TFL 

TSF 

ERROR 

SPI 

ERROR 

IS! INTFLG 
ERROR 
CLA 
K I E 

OCA INTFLG 

ION 

TSF 

ERROR 

SPI 

SKP 

ERROR 

TAD INTFLG 
SZA CLA 
ERROR 
TCF 



/SETUP TEST COUNT AND SCOPE LOOPING ADDRESS 

/SIMULATOR ITERATION COUNTER 

/CHECK TO SEE IF SIMULATOR IS SELECTED 

/CONTROL WORD FOR THE SIMULATOR 

/LOAD SIMULATOR IF SELECTED ALSO SET SCOPE 

/LOOP « THIS ADDRESS IF SIMULATOR SELECTED 

/OTHERWISE SCOPE LOOP IS THIS ADDRESS *1 

/CLEAR PROGRAM INTERRUPT FLAG 

/CLEAR ALL FLAGS BUT SET SLU INTERRUPT ENABLE 

/SET REAL TIME CLOCK INT ENA 

/TURN THE INTERRUPT ON 

/SKIP ON XMIT FLAG 

/XMIT FLAG SET AFTER A CAF 

/SKIP ON XMIT/RECEIVE AND I NT ENA ON A 1 

/SPJ SKIPPED WITH INT ENA SET AND NO FLAG 
/GET THE PROGRAM INTERRUPT FLAG 

/PROGHAM INTERRUPTED WITHOUT XMIT FLAG 

/SET THE TRANSMIT FLAG 

/SKJP ON THE TRANSMIT FLAG 

/TFL FAILED TO SET THE XMJT FLAG 

/SKIP ON XMJT FLAG AMD INT ENA ON A 1 

/CAF FAILED TO SET SLU INT ENA OR SPI DION'T SKIP 

/DID THE PROGRAM INTERRUPT WITH XMIT * I NT ENA 

/PROGRAM FAILED TO INTERRUPT WITH XMIT * INT ENA SET 

/CLEAR THE ACCUMULATED 

/CLEAH INT ENA ON SLU 

/CLEAR PROGRAM INTERRUPT FLAG , 

/TURN THE INTERRUPT BACK ON 

/SKIP ON TRANSMIT FLAG 

/XMJT FLAG GOT CLEARED 

/SKIP ON XMJT AND INT ENA ON A 1 

/KIE AND DATA 11 FAILED To CLEAR I NT ENA 
/GET THE PROGRAM INTERRUPT FLAG 

/PROGRAM INTERRUPTED WITHOUT INT ENA SET 
/CLEAR XMJT FLAG 



/DKC8-AA OPTIOM TEST 1 MA I NOEC0B-DJOKA -B-L IK PART 2 



2713 
8714 
0715 
0716 
0717 

0721 



6841 
7410 
4427 
6031 
7410 
4427 
4424 
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TSF 

SKP 

ERROR 

KSF 

SKP 

ERROR 

DONLOP 



PALI* V142A I4.JUN.7S 

/SKJP ON TRANSMIT FUG 

/TOF FAILED TO CLEAR XMIT FLAG 
/SKIP ON RECEIVE FLAG 

/REUEJVE FLAG GOT SET «Y ABOVE CODE 
/REPEAT TEST IF NOT OONE OR LOOP IF SR2«1 



^I^ 1 ,,?^"^^" 5 ™* T S<- u ! ,JT EN* CAN BE SET AND CLEARD BY <;r 
/AND DATA SIT u ysiMG THE XMIT FLAG TO INTERRUPT ON, 



0722 4423 

0723 7777 

0724 4436 

0725 40015 

0726 4437 



0727 

0733 

0731 

0732 

0733 

0734 

3735 

0736 

0737 

0743 

0741 

0742 

0743 

0744 

0745 

0746 

0747 

075Z 

0751 

0752 

0753 

0754 

0755 

3756 

0757 

0763 

0761 

0762 

0763 

0764 

0765 

0766 

0767 

0770 

0771 



3041 
6007 
4145 
6035 
4001 
6040 
6041 
4427 
6045 
7610 
4427 
1041 
7640 
4427 
'331 
6035 
6041 
4427 
6045 
4427 
72510 
2041 
4427 
3041 
6035 
6031 
6041 
4427 
6045 
7610 

4427 

1041 
7640 
4427 
6042 



TEST26, LOOPPC 
-1 

SIMCHK 

4000 

LOOSIM 

OCA INTFLG 
CAF 

RTCENA 

Kit 

ION 

TFL 

TSF 

ERROR 

SPI 

SKP CLA 
ERROR 

TAD INTFLG 
Si A CLA 
ERRO R 
CLA CLL 
K I E 
TSF 
ERROR 
SPI 
ERROR 
CL* 

IS! INTFLG 
ERROR 

OCA INTFLG 

K I E 

ION 

TSF 

ERROR 

SPI 

SKP CLA 
ERROR 

TAD INTFLG 
SZA CLA 
ERROR 
TCP 



IAC 



•»*«»*»»»««*««•»• 

/SETUP TEST COUNT AND SCOPE LOOPING ADDRESS 

/SIMULATOR ITERATION COUNTER 

/CHECK TO SEE IF SIMULATOR IS SELECTED 

/CONTROL WORD FOR THE SIMULATOR 

/LOAD SIMULATOR IF SELECTED ALSO SET SCOPE 

/LOOP = THIS ADDRESS IF SIMULATOR SELECTED 

/OTHERWISE SCOPE LOOP IS THIS ADDRESS *1 

/CLEAR PROGRAM INTERRUPT FLAG 

/CLEAR ALL FLAGS 

/SET REAL TIME CLOCK I NT ENA 

/CLEAR SLU INTERRUPT ENABLE 

/TURN THE INTERRUPT ON 

/SET THE TRANSMIT FLAG 

/SKIP ON TRANSMIT FLA'G 

/TFL FAILED TO SET TRANSMIT FLAG 

/SKIP ON XMIT/RECEIVE ♦ INT SNA ON A 1 

/ERROR, INT ENA SET OR KIE FAILED TO CLEAR I NT ENA 
/GET THE PROGRAM INTERRUPT FLAG 

/PROGRAM INTERRUPTED WITHOUT INT ENA SET 

/SET UATA 11 TO A 1 

/SET I NT ENA 

/SKIP ON TRANSMIT FLAG 

/XMIT FLAG GOT CLEARED 

/SKIP ON XMIT ♦ INT ENA ON A 1 

/KIE AND DATA 11 ON A 1 FAILED TO SET INT ENA 

/PROGRAM FAILED TO INTERRUPT WITH INT ENA * XMIT FLAG 

/CLEAR INTERRUPT ENASLE 

/TURN THE INTERRJPT ON 

/SKIP ON XMIT FLAG 

/XMIT FLAG CLEARED 

/SKIP ON XMJT * INT ENA ON A 1 

/KIE * DATA 11 ON A FAILED TO CLEAR INT ENA 
/GET THE PROGRAM INTERRUPT FLAG 

/PROGRAM INTERRUPTED WITHOUT INT ENA SET 
/CLEAR THE XMIT FLAG 



/DKCb»*A OPTION TEST 1 MAIHOEC-0S.OJDKA.B,L IK PART 2 PALI:* V142A 
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0772 
0773 
0774 
0775 
0776 
0777 
1000 



6041 
7610 
4427 
6031 
7610 
4427 
4424 



TSF 

SKP CLA 

ERROR 

KSF 

SKP CL« 

ERROR 

DONLOP 



/SKIP ON SLU XMIT FLAG 

/TCF FAILED TO CLEAR XMIT FLAG 
/SKJP ON RECEIVE FLAG 

/RECEIVE FLAG -SET BY ABOVE CODE 

/REPEAT TEST IF NOT DONE OR LOOP IF SR2il 



/TEST 27 . CHECKS THAT TLS WILL CLEAR THE*XMI T*FLAG*aNd*THEN*SET*^T*wTth 
/XMIT RUFF MT H, THE PROGRAM THEN CLEARS THE XMIT FLAG AND \aITS FOR 
/RCV DATA AVAILABLE- H TO SET RECEIVE FLAG, THE RECEIVE FLAG IS CHECKED TO 
/SKIP^AND INTERRUPT AND THEN TO CLEAR BY KCF, CHECKED TO 



1801 4423 

■1002 7740 

1003 4436 

1004 4000 

1005 4437 



1006 
1007 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
102? 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1033 
1331 
1032 
1033 
1034 
1035 
1036 
1037 
1040 
1041 
1042 
1043 
1044 
1045 
1046 



3041 
6037 
4145 
6001 
4040 
6041 
4427 
6045 
4427 
2041 
4427 
6046 
7610 
4427 
6001 
6041 
7610 
4427 
4431 
4427 
2041 
4427 
6043 
4427 
6042 
6031 
1432 
4427 
4045 
4427 
2041 
4427 
6030 



TEST27, LOOPPC 
.40 

SIMCHK 
4000 

LODSIM 



OCA INTFLG 
CAF 

RTCENA 

ION 

TFL 

TSF 

ERROR 

SPI 

ERROR 

152 INTFLG 

ERROR 

TLS 

SKP CLA 
ERROR 
ION 
TSF 

SKP CLA 
ERROR 
TSFWAT 
ERROR 

ISZ INTFLG 

ERROR 

SPI 

ERROR 

TCF 

ION 

KSF W A T 
ERROR 
SPI 
ERROR 

IS? INTFLG 

ERROR 

KCF 



/SETUP TEST COUNT AND SCOPE LOOPING ADDRESS 

/SIMULATOR ITERATION COUNTER 

/CHECK TO SEE IF SIMULATOR IS SELECTED 

/CONTROL WORD FOR THE SIMULATOR 

/LOAD SIMULATOR IF SELECTED ALSO SET SCOPE 

/LOOP » THIS ADDRESS IF SIMULATOR SELECTED 

/OTHERWISE SCOPE LOOP IS THIS ADDRESS *1 

/CLEAR PROGRAM INTERRUPT FLAG 

/CLEAR ALL FLAGS BUT SET SLU INT ENA 

/SET REAL TI"E CLOCK INT ENA 

/TURN THE INTERRUPT ON 

/SET THE TRANSMIT FLAG 

/SKIP ON XMJT FLAG 

/TRANSMIT FLAG FAILED TO SET BY TFL 
/SKIP ON XMIT FLAG AND I MT ENA ON A 1 
/SPI FAILED TO SKIP U[TH INT ENA ♦ FLAG SET 
/OIO THE PROGRAM INTERRUPT 

/PROGRAM FAILED TO INTERRUPT WITH XMIT AND INT ENA SrT 

/load transmit buffer, transmit and clear xmit flag 

/tls skipped 

/turn the interrupt on 

/skip on the transmit flag 

/tls failed to clear xmit flag 

/ma it fop transmit flag to set 

/xmit buff mt faileu to set xmit flag 

/did the program interrupt? 

/error , no interrupt with xmit and int ena set 

/skjp on slu interrupt (xmit side) 

/FAILED TO SKIP OR I NT ENA OR FLAG GOT CLEARED 

/CLEAR TRANSMIT FLAG 

/TURN The INTERRUPT ON 

/WAIT FOR THE RECEIVE FI.JC TO SET 

/NO SKIP, OR RECEIVE FLAG NOT SET BY ROD DATA AVAILABLE 
/SKIP ON RCV FLAT, AND I NT ENA 

/0 SIDE OF RCV FLAG »'OT LOW OR FAILED TO INTERRUPT 

/DID RCV AND INT ENA CAUSE AN INTERRUPT? 

/NO, ERROR 

/CLEAR RECEIVE FLAG 
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1047 T6t« 

1050 4427 

1251 6801 

1052 4031 

1093 '610 

1054 4427 

1055 1041 

1056 7640 

1057 4487 
1062 6041 

1061 7610 

1062 4427 
1263 4424 



1064 4423 

1065 7740 

1066 4436 

1067 4000 
1070 4437 



1071 3041 

1072 6007 

1073 4145 

1074 6001 

1075 6040 

1076 6041 

1077 4427 
1103 2041 

1101 4427 

1102 6044 

1103 7610 

1134 4427 

1135 6041 

1106 4427 

1107 6042 

1110 6001 

1111 4431 

1112 4427 

1113 2041 

1114 4427 

1115 6042 

1116 6001 

1117 4432 

1120 4427 

1121 6045 

1122 4427 

1123 2041 

1124 4427 



SKP CLA 
ERROR 
(ON 
KSF 

SKP CL.A 
ERROR 

TAD INTF'LG 
SZA CLA 
ERROR 
TSF 

SKP CLA 

ERROR 

DONLOP 



/KSF SKIPPED 

/TURN THE INTERRUPT ON 

/SKIP ON RECEIVE FLAG 

/KCF * TP! FAILED TO CLEAR RECEIVE FLAG 
/GET THE PROGRAM INTERRUPT FLAG 

/PROGRAM INTERRUPTED WITH «CV FLAG CLEARED 
/SKIP ON XMIT FLAG 

/TRANSMIT FLAG GOT RESET 3* ABOVE CODE 

/REPEAT TEST IF MOT OONE 5* SCOPE LOOP IF SR2H 



/.»•»•»»»»*«.#»•*».»«».»»»*»#.»«.* 

/TEST 28 . CHECKS THAT TPc "ILL NOT CLEAR XMIT FLAG AND THAT IT WILL 
/RESET IT, TEST 28 ALSO CHECKS THAT THE RECEIVE FLAG WILL SET AND THAT IT 
/CAN BE CLEARED BY KCC', 

/•»» • 



TEST2S, LOOPPC 
-40 

SIMCHK 

403a 

LOOSIM 



DC* INTFLG 
CAF 

BTCENA 
ION 
TFL 
TSF 

ERROR 

ISZ INTFLG 

ERROR 

TPC 

SKP CLA 

ERROR 

TSF 

ERROR 

TCF 

ION 

TSFWAT 
ERROR 

ISZ INTFLG 

ERROR 

TCF 

ION 

KSFWAT 
ERROR 
SPI 
ERROR 

IS? INTFLG 
ERROR 



/setup test count tm scope looping address 

/simulator iteration c5unter 

/check to see if simulator is selected 

/control word for the simulator 

/load simulator if selected also set scope 

/loop = this address if simulator selected 

/otherwise scope loop 's this address *1 

/clear program interrupt 

/clear all flags but set slu int ena 

/set heal time clock int ena 

/turn the interrupt on 

/set the transmit flag 

/skip on transmit flag 

/tfl failed to set xmjt flag 

/program failed to interrupt 
/loah transmit buffer and transmit 

/tpc skipped 

/skip on xmit flag 

/tpc cleared xmit flag 

/clear transmit flag 

/turn the interrupt sack on 

/wait for xmit buff «t h to set xmit flag 

/tpc failed to set xmit flag 

/check to see if program interrupted 

/program failed to interrupt with xmit flag * int ena 

/clear the transmit flag 

/turn the interrupt on 

/wait for receive flag to set 

/receive flag failed to set 9y a tpc command 

/skip on rcv flag and int ena 

/failed to skip 

/did the program interrupt 

/failed to interrupt with rcv and int ena set 
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1125 
1126 
1127 
1130 
1131 
1152 
1133 
1134 
1135 
1136 
1137 



6032 
7610 
4427 
6001 
6031 
7610 
4427 
1041 
7640 
4427 
4424 



1140 5440 



KCC 

SKP CLA 
ERROR 
ION 
KSF 

SKP CLA 

ERROR 

TAD INTFLG 
SZA CLA 
ERROR 
OONLOP 

PRGEND 

IFDEF 0P13K <PAGE> 



/CLEAR THE RECEIVE FLAG 

/KCC SKIPPED 

/TURN THE INTERRUPT DN 

/SKIP ON RECEIVE FLAG 

/KCC FAILED TO CLEAR RCV FLAG 
/GET THE PROGRAM INTERRUPT FLAG 

/PROGHAM INTERRUPTED WITH RCV FLAG CLEARED 
/REPEAT TEST IP NOT DONE OR LOOP ON TEST IF SR2=1 

/END OF 2ND IK SEGMENT 



IFDEF 0P13K <PAGE> 



1200 



1200 3000 

1201 7340 

1202 1230 

1233 3045 

1234 1630 
1205 3367 

1236 7240 

1237 3050 
1213 1050 

1211 3047 

1212 2230 

1213 5630 

1214 0000 

1215 1055 

1216 6151 

1217 7330 
1223 5614 

1221 .3030 

1222 2047 

1223 5446 

1224 1021 

1225 3097 



/ROUTINE TO SETUP » OF PASSES/TEST AmQ TO STORE THE RETURN ADDRESS FOR SCOPE LOOPING 

PCLOOP, 3 

CLA CLL CMA 

TAD PCLOOP 

OCA TEST 

TAD I PCLOOP 

OCA SIMCNT 

CLA CMA 

OCA SAVCNT 

TAD SAVCNT 

DCA TSTCMT 

ISZ PCLOOP 

JMP 1 PCLOOP 



S[MLODi 



LOPOON, 



TAD CONTWD 

LOADSM 

CLA CLL 

UM P I S1MLOD 



ISZ TSTCMT 

JMP I TSTLDP 

TAD OP1SEL 

AND K200 



/GET THE CONTROL WORD 

/LOAD THE SIMULATOR CONTROL WORD 



/TEST DONE? 

/NO RETURN TO TEST 

/IS THE SIMULATOR SELECTED 



/DKC8.AA OPTION TEST 1 MAINDECJB.DJDKA.H.L IK PART 2 PAUB V142A 16.JUN.79 9|02 PASE 2.16 



1226 


765S 




SN fl 


C|_A 




1227 


3237 




JHP 


LOOPSw 


/SIMULATOR NOT SELECTED, CHECK TEST LOOP Sw 


1230 


2067 




IS? 


SIMCNT 


/ADD A 1 TO THE CONTROL WORD? 


1231 


7612 




SKP 


CLA 


1232 


5237 




JHP 


LOOPSW 


/NO, CHECK TEST LOOP SWITCH 


1233 


2055 




IS? 


CONTUO 


/ADD 1 TO THE CONTROL WORD FOR BAUD RATES 


1234 


1050 




TAD 


SAVCNT 


/GET THE TEST COUNT 


1235 


304 7 




OCA 


TSTCfJT 


/RESTORE IT FOR A NEW PASS FOR A DIFFERENT 


1236 


5446 




JMP 


I TSTLOP 


/RETURN FOR NEW BAUD RATE 


1237 


4435 


LOOPSW, 


SWHCHK 


/CHECK FOR SR2?1 


1240 


7006 




"TL 






1241 


7700 




SMA 


CLA 


/LOOP? 


1242 


5621 




JMP 


I LOPDON 


/NO, GO TO NEXT TEST 


1243 


5445 




JMP 


I TLST 


/YES, LOOP ON THIS TEST 


1244 


6102 


S I M J SJT , 


SPL 




/SKIP ON POWER LOW 


1245 


7410 




SKP 






1246 


5777' 




JMP 


POWFAL 


/POWER GOING DOWN . GO SAVE EVERYTHING 


1247 


3251 




DCA 


AC 


/SAVE THE AC 


125? 


5321 




JMP 


FLGCK5 


/RETURN TO THE PROSRAM 


1251 


0000 


AC! 


?! 






1252 


6102 


S K P C H N f 


SPL 




/SKIP ON POWER LOW 


1253 


7410 




SK P 






1254 


57771 




JMP 


PO"FAL 


/POWER GOING DOWN SAVE EVERYTHING 


1255 


3251 




OCA 


AC 


/SAVE THE AC 


1256 


1042 




TAB 


CLKFLG 


/WERE WE EXPECTING A CLOCK INTERRUPT* 


1257 


7650 




SNA 


CLA 




126? 


4776' 




JMS 


CHKACT 


/GO CHECK FOP THE ACT LINE 


1261 


6137 




CLSK 


/YES . SKIP ON REAL TIME CLOCK FLAG 


1262 


7410 




SKP 




1263 


c 305 




JMP 


FLGCK1 


/GO CHECK THE OTHER FLAGS 


1264 


1133 




TAD 


»CTFLG 


/GET THE ACT FLAG 


1265 


7440 




S2A 




/DID THE PROGHAM GO TO THE PROM ? 


1266 


5330 




JMP 


ACTCK2 


/YES, CHECK PARALLEL I/O DATA ACCEPTED 


1267 


6041 




TSf 




/WAS IT A TRANSMIT FLAG? 


1272 


7610 




SKP 


CLA 




1271 


5310 




JMP 


FL0CK2 


/TRANSMIT FLAG SET - CHECK THE OTHER FLAGS 


1272 


6031 




KSF 




/WAS IT A RECEIVE FLAG? 


1273 


7410 




SKP 






1274 


5313 




JMP 


FLGCK3 


/YES i GO CHECK THE OTHER FLAGS 


1275 


6571 




DBSK 




/WAS THE DATA READY FLAG SET? 


1276 


7410 




SKP 






1277 


5316 




JMP 


FLOCK4 


/YES . CHECK DATA ACCEPTED FLAG 


13?? 


6570 


ACTCK2 , 


DBST 




/WAS) DAIA ACCtrTt-U 3LT.I' »U CLtAR IT 


1301 


7640 




S2A 


CLA 


1302 


5317 




JMP 


FLGCK5.2 


/YES, THE FLAG SHOULD BE CLEAR NOW 


13M 


4427 




TP-POP 


/ILLEGAL INTERRUPT - 


1304 


5317 




JMP 


FLCCK5.2 


/RETURN 


1305 


6041 


FIGCK1, 


TSF 




/SKIP ON XMJT FLAG 


1306 


7410 




SKP 






1307 


4427 




ERROR 


/KM I T FLAG SET 
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1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1320 
1321 
1322 
1323 
1324 
1335 
1326 
1327 



6031 
7410 
4427 
6571 
7410 
4427 
6570 
7610 
4427 
3133 
7240 
3041 
4775' 
1330 
1231 
5730 



FLGCK2, 



FLGCK3, 



FLOCKS, 



KSF 

SKP 

ERROR 

OBSK 

5K P 

ERROR 

nBST 

SKP CLA 

ERROR 

DCA ACTFLG 
CLA CMA 
OC A INTFLG 
JMS RETURN 
INTRET 
TAD AC 

JMP I INTRET 



/SKIP ON RECEIVE FLAG 

/RECEIVE FLAG SET 

/SKIP ON P I/O DATA READY 

/DATA READY FLAG SET 
/SKIP ON DATA ACCEPTED 

/DATA ACCEPTED FLAO SET 
/CLEAR THE ACT FLAO 

/SET INTERRUPT FLAG 



1330 3000 



HTHET, o 



1331 "000 

1332 7300 



1333 
1334 



/ROUTINE TO WAIT FOR SERIAL LINE UNITS XMIT FLAG 
WATTSF, 



.147 
3044 



1333 3043 

1336 6041 

1337 4363 

1340 2331 

1341 5731 



1342 :"00Z 

1343 7300 

1344 1147 

1345 3044 

1346 3043 

1347 6031 
1390 4363 

1351 2342 

1352 5742 



1353 0000 

1334 7240 

1355 3044 

1356 3043 

1357 6137 

1360 4363 

1361 2353 

1362 5753 



CLA 

TAD 
OCA 
OCA 
TSF 
JMS 
IS? 
JMP 



CLL 

K7713 

CNT1 

CNT 

ADDTIM 
WATTSF 
WATTSF 



/SKIP ON SLU TRANSMIT FLAG 
/GO AUD ONE TO THE COUNTER 



I WATTSF /RETURN TO THE PRQGKAM.GOT THE FLAG 

/ROUTINE TO WAIT FOR THE SERIAL LINE UNjT RECEIVE f u a e 
WATKSF, 



CL* 
TAD 
OCA 
DCA 
KSF 
JMS 
15? 
JMP 



CLL 
K7710 
CNT1 
CNT 

ADDTIM 
WATKSF 
WATKSF 



/SKIP ON SLU RECEIVE FLAG 
/GO ADD A ONE TO THE COUNTER 



I WATKSF /RETURN TO THE PROGRAM. GOT THE FLAG 

/ROJTINE TO WAIT FOR THE REAL TIME CLOCK FLAG 



WTCLSK, 

CLA 
OCA 

OCA 
CLSK 
JMS 
IS? 

JMP I 



CMA 

CNT1 

ON7 

ADDTIM 
WTCLSK 
WTCLSK 



/SKIP ON THE REAL TIME CLOCK FLAG 
/GO ADO ONE TO THE COUNTER 

/RETURN TO THE PROGRAM. GOT THE FLAG 
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/ROUTINE TO WAIT FOR THE FtAG 

1343 0808 ADDTIM, « 

1364 712*3 ISJ CNT 

13*5 7618 SKP OU* 

1366 2344 IS8 CNTl 

1367 7346 CLA CLL CMA RTL 

1370 70S! I AC 

1371 1363 TAD AODT ! M 

1372 3363 OCA ADDTIM 

1373 5763 JM' I A09TIM 



1375 1420 

1376 1544 

1377 1441 
1480 



14150 6160 

1401 4435 

1402 7006 

1403 7004 

1404 7710 

1405 7402 

1406 5777' 



PAGE 

/THIS IS THE END OP A PROGRAM PASS - , If SR3§1 HALT, I F NOT START PROGRAM OVER 
ENDPAS, SJMCLR 

SWHCHK 
PTt 
"At 

SPA CUA 
HIT 

JMP 0280 



/CLEAR THE SIMULATOR 
/GO GET SWITCH REGISTER 



/SR3»i END OF A COMPLETE PROGRAM PASS 
/START PROGRAM OVER 



/CHECK TO SEE IF FRONT PANEL IS AVARABE TO 00 EITHER A TAD SWITCH OR A LAS COMMAND 



1407 2800 

1418 7280 

1411 1021 

1412 7708 

1413 5216 

1414 7604 

1415 5607 

1416 1020 

1417 56H7 



CHKSWH, 



CLA 

TAO 0P1SEL 

SMA CLA 

JMP ,*3 
LAS 

JMP I CHKSWH 

TAO SWITCH 

JMP I CHKSWH 



1423 «800 

1421 6201 

1422 1636 

1423 3237 

1424 6224 

1425 1131 

1426 3227 

1427 7402 
1433 1620 

1431 5240 

1432 2220 



/THIS ROUTINE SETS UP A RETURN ADDRESS FOR INTERRUPT RETURNS FROM ANOTHER FIELD 

RETURN, 8 

CQF 



I 



K0 

RETADD 



TAD 
DCS 
R[F 
TAD 
DCA 

HLT/CDF 
TAO I RETURN 
DCA SAVLOC 
ISZ RETURN 



KCOF 



/Change data Field to ';Elo 
/get the interrupt pc 

/SAVE IT 

/READ THE PROGRAM INSTRUCTION FIELD 
/ADD A CDF INSTRUCTION TO IT 
/SAVE IT IN THE NEXT LOCATION 
/RETURN TO THE PROGRAM DATA PJELD 
/GET THE INTERRUPT RETURN LOCATION 
/SAVE IT 
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1433 1237 TAD RETADD 

1434 3640 DCA I SAVLOC 

1435 5620 JMP I RETURN 



1436 0000 K8i 

1437 0800 RETADD, 
1443 -^000 SAVLOCi 

/POWER FAIL ROUTINE, THE PROGRAM WILL 00 IT'S OWN AUTO. RESTART 
/AT THE BEGINNING OF THE TEST THAT IT WAS EXECUTING UNLESS ALL POWER 
/WEN T AWAT, THEN THE POWER .FAIL AUTO. RESTART OPTION WOULB TRY TO DO 
/A RESTART IF IT WAS SELECTED, 



1441 


7200 


PQWFALi CLA 


C L A 


1442 


6201 


CDF 


08 


1443 


1265 


TAO 


KJMP7 


1444 


3636 


OCA 


I K0 


1445 


1045 


TAO 


TEST 


1446 


3666 


OCA 


I KTEST 


1447 


1267 


TAO 


FLGRST 


1458 


3670 


DCA 


I C7 


1451 


1132 


TAD 


KRTF 


1452 


3671 


OCA 


I K10 


1453 


1272 


TAO 


KJMPRT 


1454 


3673 


OCA 


I Kll 


1455 


6004 


GTF 




1456 


3674 


?CA 


I «18 


1457 


4244 


RMF 




1463 


6103 


CAL 




1461 


6102 


SPL 




14S2 


7610 


SKP 


CLA 


1463 


5261 


JMP 




1444 


5445 


JMP 


I TEST 



1465 


5007 


KJMP7, 


JMP 7 


1466 


7845 


KTEST, 


TEST 


1467 


1812 


FLGRST, 


TAO 12 


1473 


3807 


C7, 


7 


1471 


2010 


K10, 


10 


1472 


5445 


KJMPRT, 


JMP I TEST 


1473 


"811 


Kill 


U 


1474 


0012 


K12, 


12 



/LOGIC ERROR ROUTINE - RESTART TEST IF SR1«1 



1475 0808 AERROR, 

1476 4326 JMS ACTCHK /GO CHECK TO SEE IF RUNNING ON ACT LINE 

1477 4455 SWHCHK /CHECK SR0 TO INHIBIT ERROR HALT 
1503 7718 SP» CLA 

1501 5307 JMP AERSWH /SR0=1 CHECK LOOP ON LOGIC ERROR 

1502 7240 CLA CMA 

1503 1275 TAD AERROR 

1504 7402 HLT /AC = ADDRESS WHERE ERROR WAS DETECTED 

1505 «314 JMS SJMWRD /WAS THE SIMULATOR SELECTED 
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1506 7402 

1507 4435 
1510 72104 
1911 7700 

1512 '675 

1513 5446 

1514 3000 

1515 7300 

1516 1021 

1517 2057 
1523 7650 

1521 5324 

1522 1055 

1523 5714 

1524 2314 

1525 5714 



HIT 

AERSWH i SUHCHK 



PAL 

SMA CLA 

JMP I AERRQR 

JMP I TSTLDP 



SJMWRB, 

C U A Cl_|. 



TAD OP1SEL 

AND K200 

SNA CLA 

JHP ,+3 

TAD CONTWO 

JHP I SIMWRD 

IS2 SIM HR q 

JMP I SJMWRD 



/ACaSIMUUTOR CONTROL WORD 
/CHECK SRlst TO LOOP ON ERROR 



/RETURN WITHOUT LOOPING ON TEST 

/SCOPE LOOP GU BACK TO START OF TEST SECTION 



/ROUTINE TO EXIT TO PROM ON AN ERROR JF RUNN I NS ON THE AST LINE 

1526 0000 ACTCHK, 

1527 7300 CLA CLL 

1530 1022 TAD OP2SEL /GET THE HARDWARE CONTROL WORD 

1551 7700 SMA CLA /IS THE PROGRAM RUNNING ON THE ACT LINE? 

1532 5726 JMP I ACTCHK /NO, RETURN TQ ERROR ROUTINE 

1533 6002 I OF /TURN THE INTERRUPT OFF 

1534 7344 CLA CLL CMA RAL 

1535 1326 TAD ACTCHK 

1536 33*3 OCA ERRPC 

1537 7240 CLA CMA ', 

1'40 1743 TAD I FRRPC /GET THE LOCATION WHERE THE ERROR WAS DETECTED 

1541 6272 CJF 73 /CHANGE INSTRUCTION FIELD TO FIELD 7 

1542 5477 JMP I BAOPAS /GO TO THE PROM 

1543 3000 ERRPC, 



1544 3000 



1545 
1546 
1547 
1550 
1551 
1552 
1553 
1554 
1555 



6137 
7410 
5352 
2344 
5744 
6136 
1022 
7710 
5365 



CHKACT, 



CLKSET, 



CLSK 

SKP 

JMP 

IS! 

JMP 

CLCL 

TAD 

SPA 

JMP 



/WAS THE CLOCK FLAG SET 
/NO-RETURN TO I NT SERVICE ROUTINE 
CLKSET /YES-CLEAR THE FLAG 
CHKACT /ADD 1 TO THE INCOMING PC 
CHKACT /RETURN TO SKIP CHAIN 
/CLEAR THE CLOCK FLAG 
DP2SEL /GET THE ACT LINE BIT 
CLA /IS THE PROGRAM RUNNING ON ACT LINE 

ONACTL /YES, CHECK FOR # OF CLOCK TICKS 



OPTION 


TEST 1 


MAINPEC- 


Sie-DJDK 


1556 


5390 




JMP 


1597 


4220 




JMS 


1560 


1564 




ACTRET 


1561 


1776' 




TAD 


1562 


S001 




I ON 


1563 


5764 




JMP I 


1564 


W0 


ACTRET, 





1565 


5101 


ONACTL, 


!SZ 


1566 


5357 




JMP 


1567 


1102 




TAD 


1573 


3101 




DC A 


1571 


6272 




CIF 


1572 


4500 




JMS I 


1573 


7240 




CLA 


1574 


3133 




OCA 


1575 


5357 




JMP 


1576 


1251 






1577 


?20Z 








1600 




PAGE 
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CHKACT+4/RETURN TO INTERRUPT ROUTINE 
RETURN /NO, RETURN TO THE PROGRAM 



9102 
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1600 3000 

16511 6007 

1602 4145 

1603 6001 

1604 6575 

1605 1051 

1606 6574 
1637 7200 
1613 6571 

1611 4427 

1612 3041 

1613 4427 

1614 3041 

1615 6572 

1616 3052 

1617 6571 

1620 4427 

1621 6573 

1622 6001 

1623 7000 

1624 6570 

1625 7610 

1626 4427 

1627 2041 

1630 4427 

1631 6001 

1632 7000 

1633 1041 

1634 7640 

1635 4427 

1636 1051 

1637 7041 



AC 

ACTRET 



/TURN THE INTERRUPT ON 
/RETURN TQ THE PROGRAM 



ACTCNT /1P0 CLOCK TICKS YET? 
CLKSET+5/N0 RETURN TO PROGRAM 



M144 

ACTCNT 

70 

G003PS 
CMA 

ACTFLG 



/RESET ACT TIME COUNTER 

/SAV.E THE NUMBER 

/CHANGE INSTRUCTION FIELD TO 7 

/SIGNAL PROM THAT PROGRAM STILLS PAS 

/SET THE ACT LINE FLAG TS ONES 



CLKSET+5/RETURN TO THE PROGRAM 



/ROUTINE FOR TRANSMITTING, READING ANU COMPARING DATA FOR PARALLEL I/O 

PATPIO, 

CAF 

RTCENA 
ION 
DBS£ 

TAD PJOXMT 
08T0 
CL» 
DBSK 
ERROR 

IS2 INTFLG 
ERROR 

0C» INTFLG 
DBRD 

OCA P[OREC 
DBSK 
ERROR 
DBCF 
ION 
NOR 
OBST 
SKP CLA 
ERROR 

ISi INTFLG 
ERROR 
ION 
NQP 

TAD INTFLG 
SiA CLA 
ERROR 

TAD PIOXMT 
CIA 



/CLEAR ALL 

/SET REAL TIME CLOCK INT ENA 
/TURN THE INTERRUPT ON 
/SET PARALLEL I/O INT ENA 

/GET THE WORn TO BE LOADED INTO PARALLEL I/O 
/LOAD AND TRANSMIT THE WORD 

/SKIP ON DATA READY 

/ERROR, DATA HEADY FLAG FAILED TO SET SY DBTD 
/GET PROGRAM INTERRUPT FLAG 

/PROGRAM FAILED TO INTERRUPT WITH INT ENA * FLAG SET 
/CLEAR PROGRAM INTERRUPT FLAG 
/READ THE 12 BIT PARALLEL I/O SUFFER 
/SAVE THE WORD READ 
/SKIP ON DATA READY FLAG 
/DRRD CLEARED DATA READY FLAG 
/CLEAR DATA READY FLAG 
/TURN INTERRUPT BACK ON 

/SHOULD INTERRUPT HERE FOR DATA ACCEPT FLAG 
/SKIP ON DATA ACCEPT 

/DATA ACCEPT FAILED TO CLEAR IN INTERRUPT ROUTINE 
/CHECK TO SEE IT IT INTERRUPTED 
/DATA ACEPT FLAG FAILED TO INTERRUPT 
/TURN THE I NTERHUPT RACK ON 

/GET PROGRAM INTERRUPT FLAG 
/DID IT INTERRUPT? 

/PROGRAM INTERRUPTED WITHOUT DATA READY SET 
/GET THE WORD TRANSMITTED 
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164? 1092 

1641 7648 

1642 5600 

1643 6007 

1644 4145 

1645 4001 

1646 *572 

1647 7640 
1653 4427 

1651 2200 

1652 5600 



1653 3000 

1654 S007 

1655 4145 

1656 6001 

1657 3041 
1662 1053 

1661 6046 

1662 4431 

1663 4427 

1664 2041 

1665 4427 

1666 6042 

1667 S001 

1670 4432 

1671 4427 

1672 2041 

1673 4427 

1674 6036 

1675 3054 

1676 6001 

1677 1041 
1703 7640 

1701 M27 

1702 1053 

1703 7041 

1704 1054 

1705 7640 

1706 5653 
17B7 2253 
1710 5653 



TAD PJOREC 
SZ» CIA 
JMP I DATPIO 
CAF 

RTCENA 

ION 

OBRD 

SZA CIA 
ERROR 

ISZ OATPIO 
JHP I DATPIO 



/GET THE HORO READ 
/ARE THEY EQUAL? 

/DATA ERROR RETURN TO REPORT ERROR 
/CLEAR ALL FLAGS AND P I/O BUFFER 

/TURN THE INTERRUPT ON 

/READ THE 12 HIT P I/O BUFFER 

/CAF FAILED TO CLEAR THE 12 SIT S4TA BUFFER 
/BUMP RETURN ADDRESS POINTER BY 1 
/RETURN TO TEST 



/ROUTINE FOR TRANSMITTING i READING AND COMPARING DATA FOR SLU 



/CLEAR ALL FLAGS BUT SET J NT ENA ON SLU 

/SET REAL TIME CLOCK INT ENA 

/TURN THE INTERRUPT ON 

/CLEAR THE PROGRAM INTERRUPT FLAG 

/GET THE WORD TO BE TRANSMITTED 

/LOAD AND TRANSMIT IT AND CLEAR THE FLAG 

/WAIT FOR THE TRANSMIT FLAG 

/XMIT FLAG FAILED TO SET 

/DID THE PROGRAM INTERRUPT? 

/PROGRAM FAILED TO INTERRUPT 

/CLEAR THE XMIT FLAG 

/TURN THE INTERRUPT BACK ON 

/WAIT FOR THE RECEIVE FLAG TO SET 

/RECEIVE FLAG FAILED TO SET 

/DID THE RECEIVE FLAG CAUSE A INTERRUPT 

/RECEIVE FLAG FAILED TO CAUSE A INTERRUPT 

/CLEAR THE AC AND RCV FLAG AND READ SUFFER 

/SAVE THC WORD READ BACK 

/TURN THE INTERRUPT BACK ON 

/CHECK THAT KRB CLEARED THE RCV PLAG 

/KRB FAILED TO CLEAR RCV FLAG OR INTERRUPTED 
/GET THE WORD TRANSMITTED 

/GET THE WORD READ BACK 

/DATA ERROR. RETURN TO REPORT THE ERROR 
/BUMP RETURN ADDRESS POINTER BY ONE 
/RETURN TO TEST 








CAF 




RTCENA 




ION 




nc» 


INTFLG 


TAD 


SLUXMT 


tls 




TSFWAT 




ERROR 




IS? 


INTFLG 


ERROR 




TCF 




ION 




KSFWAT 




ERROR 




ISZ 


INTFLG 


ERROR 




KRB 




OCA 


SLUREC 


ION 




TAD 


INTFLG 


SZA 


CLA 


ERROR 




TAD 


SLUXMT 


CI* 




TAD 


SLUREC 


SZA 


CLA 


JMP I 


OATSLU 


ISZ 


OATSLU 


UMP I 


DATSLU 



/DATA ERROR ROUTINE FOR PARALLEL I/O 

1711 S000 OERPIOi 

1712 4777' JMS ACTCHK /CHECK TO SEE IF RUNNING ON ACT LINE 

1713 4435 SWHCHK /CHECK SR0 TO INHIBIT ERROS HALT 

1714 7710 SPA CLA /IS SR3 SET? 

1715 5327 JMP PIOSWH /YES, GO CHECK SRI TO LOOP ON ERROR 

1716 7240 CLA CM A 
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1717 1311 TAD DrRp;o 

l 7 \, T 4 2 HLT /AC » ADDRESS WHERE ERROR WAS DETECTED 

1721 7200 «LA 

TAO P1DXMT /GET THE WORD TRANSMITTED 

172 3 7402 HLT /AC = THE GOOD WORD 

1724 7200 CLA 

i 7 ,5 ,252 TAD RIOHEC /GET THE WORD READ 

lyli 7i02 HLT /AC « THE BAD WORD • WORD READ 

1727 4435 PIOSWHi SWHCHK /LOOP ON DATA ERROR IF SRltl 

1730 7004 "AL 

1731 7 700 S " A C L* /LOOP? 

17 , 2 ^7,1 JMP I DERPIO /NO, RETURN TO TEST 

J733 5 4 J 6 JMR I TSTLOP /RETURN AND DO SAME PATTERN ( S J 

/DATA ERROR ROUTINE FOR SERIAL LINE UNIT 

1734 '■'000 DERSLUi R 

1735 4777' JMS ACTCHK /CHECK TO SEE IF RUNNING ON THE ACT LINE 
lyjl 4435 SWHCHK /CHECK SR0.1 TO INHIBIT ERROR HALT 

1737 7710 SPA CLA 

J 74e 5354 JMP SLUSWH /GO CHECK 5Rl!l To LOOP ON ERROR 

1741 7 2 40 CLA CMA 

IHI 7 402 HLT DERSLU ' AC , ADRt:ss WHERE ERROR WAS OETECTEO 

1744 7200 C LA 

1745 1053 TAD SLUXMT /GET THE WORD TRANSMITTED 

J744 7„2 HLT /ACsGOOD WORD. THE WORD TRANSMITTED 

1747 7200 CLA 

itch ia?4 TAD SLUREC /GET THE WORD READ 
1751 



, 7S02 HLT /AC. THE BAD UORD-THE W0R3 READ 

J75; 4776, JMS SIMWRD /WAS THE SIMULATOR SELECTED 

1753 7402 HLT /AC. THE SIMULATOR CONTROL WORD 

1754 4435 SLUSWH, SWHCHK /LOOP ON DATA ERROR IF SRW 

1755 7004 "AL 

1756 77510 SMA CLA /LOOP? 

1757 >i734 JMP I OERSLU /NO, RETURN T(J TEST 
1760 5446 JMP I TSTLOP 



1761 (000 CIKSIM, 

1762 1021 T AO CP1SLL /CHECK FOR SIMULATOR 

1763 ^057 AND K200 

1764 7650 SNA CLA 

1765 1371 JMP ,+4 /NO 

17,56 17 si TAD I CHKSIM /GET THE CONTROL WORD 

1767 3055 DC* CONTWD /SAVE IT 

1775 7410 SKP 

1771 '361 IS? CHKSIM 

1772 '361 IS? CHKSIM 

1773 1361 TAO CHKSIM 

1774 3046 OCA TSTLOP 
!775 "5761 JMP I CHKSIM 
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02 PASC 2.24 



1776 1514 

1777 1526 
3230 
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S 



0002 
0100 


11110000 
llllllll 


"0000000 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
11110000 


llllllll 
00000300 


llllllll 

3000M00 


0200 
0300 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
UUllll 


llllllll 
llllllll 


0400 
U500 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
UUllll 


0600 

1*700 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 



1000 


llllllll 


llllllll 


llllllll 


llllllll 


UUllll 


llllllll 


llllllll 


UUUU 


1100 


llllllll 


llllllll 


UUllll 


llllllll 


10303000 


00000000 


00000000 


00000000 


1200 


llllllll 


llllllll 


uiuiii 


UUllll 


uuuu 


llllllll 


UUllll 


llllllll 


1300 


llllllll 


llllllll 


11UUU 


UUllll 


llllllll 


llllllll 


llllllll 


ttuaiu 


1400 


llllllll 


llllllll 


11UUU 


UUllll 


UUllll 


iiuuii 


llllllll 


uuuu 


1500 


UUllll 


UUllll 


UUllll 


uuuu 


UUU11 


uuuu 


uuuu 


llllllll 


1600 


llllllll 


llllllll 


llllllll 


UUllll 


UUllll 


Ilium 


uuuu 


UUllll 


1700 


llllllll 


llllllll 


UUllll 


uuuu 


llllllll 


llllllll 


llllllll 


UUllll 



2000 
2100 

2200 
2300 

2400 
2300 

2600 
2700 



3000 
3100 

3200 
3300 

3403 
3500 



3600 
3700 
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4000 

tints 

4200 

4300 

**H 
SSE0 

4400 

«7P3 

S000 
9100 

5200 
5300 

5403 
5500 

•3600 

5700 

((100 

6J00 
6300 

6400 
6500 

6600 
S700 

7000 
7100 

7200 

7300 

7400 
7503 

'600 
»T00 
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AC 


1251 


rJOOQPS 


0100 


ACTCHK 


1526 


GTF 


6004 


AC7CK2 


1330 


«LT 


7402 


4CTCNT 


7101 


IHACTV 


00"6 


ACTFLG 


0133 


INTFLS 


10*1 


ACTRET 


1564 


INTUIT 


1330 


AOOT!** 


1363 


K0 


1436 


AERROR 


1475 


«1 


0134 


AERS'JH 


1507 


K1B 


1471 


SADPAS 


«077 


Kit 


1473 


c? 


1470 


K12 


1474 


BAF 


6007 


*125 


00*1 


CAL 


6103 


"2 


0135 


HMKACT 


1544 


«200 


0057 


5HKS! U 


1761 


K252 


0060 


5HKSUM 


1407 


K2525 


0063 


BLCL 


6136 


"3 


01S6 




?042 


*377 


005? 




1552 


<5252 


006E 


rL*S«C 


3134 


K7 


0064 


CLUE 


6135 


K7710 


01«7 


CLRDET 


6156 


*CC 


6052 


flLHSIM 


6150 


KCBF 


0131 


5LSK 


6137 


KQF 


603? 


CLSKUT 


4425 


KIE 


6035 


?>IT 


^043 


KJ*P 


0127 


riNU 


"844 


KJMP7 


1465 


CONTUD 


3055 


KJMPBT 


147E 


IUTPI0 


1600 


KR3 


603C 


TATSL'J 


1653 


KRMF 


0130 


1BCE 


6576 


KRS 


603.-' 


nBCF 


6573 


KRTF 


0132 


58RD 


65'2 


KSF 


6031 


1BSE 


6575 


KgFWAT 


4432 


DBSK 


SJ71 


KTEST 


14*6 


BBSS 


6577 


LINK 


0071 


hbst 


6570 


LOAOSM 


6151 


D8TD 


6574 


UODFPQ 


616J 


"ERPIC 


1711 


LODSIM 


4437 


TERSLU 


1734 


LOOPPC 


4423 


nflNLOP 


4424 


LOOPSW 


1237 


ENARTC 


0145 


LOPDON 


1221 


ENDPAS 


1400 


"10 


0066 


FRROR 


4427 


M144 


0102 


FRRPC 


1543 


"4 


P065 


EXPAGO 


1070 


HNACTL 


IMS 


FLGCK1 


1305 


OP11K2 


0000 


FLGCK2 


1310 


OP1SEL 


0021 


FL5CK3 


1313 


0P2SEL 


0022 


PS.OCK4 


1316 


PATCH 


0103 


FLOCKS 


1321 


PCLOOP 


1200 


PLGRST 


1467 


PIOOAT 


4426 
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PAL10 


V142A 


16.JyN.7J 


9102 


PIODER 


4430 


TEST28 


1064 


PlOREC 


0052 


TFL 


6040 


PIOSMH 


1737 


TLS 


8046 


PI8XMT 


0051 


TPC 


6044 


RNOINT 


0075 


TSF 


6041 


POUFAL 


1441 


TSFWAT 


4431 


PRGENU 


5440 


TSTCNT 


0047 


SECFLG 


0073 


TSTOOO 


0135 


RETAOD 


1437 


TSTtOP 


0046 


RETURN 


1420 


HATKSF 


1342 


RMF 


6244 


WAUSF 


1331 


BTCENA 


4145 


WTCL3K 


1353 


RTCFLQ 


0074 


XMTFL5 


0072 


RTF 


6005 






■5AVADB 


0183 






SAVCMT 


0090 






SAVLOC 


1440 






5BP. 


6101 






■5IHCHK 


4436 






SIMCLH 


61S0 






SIMCNT 


0047 






SIMINT 


1244 






■SIHLOD 


1214 






S]MWRD 


1514 






5KPCHN 


12S2 






SKPOAV 


6165 






SKPFRU 


S1IZ 






3KPRDK 


6157 






SKPSTH 


61*7 






StUOAT 


4433 






SLUDER 


4434 






SLUREC 


0054 






SLUSMH 


1754 






5LUX«T 


0053 






SPI 


6045 






SPL 


6102 






5TRFRQ 


6161 






SWHQHK 


4435 






SWITCH 


0050 






TCP 


6042 






TEST 


0045 






TEST17 


02»1 






TESTIS 


0222 






TEST1V 


027« 






TEST20 


0344 






TEST21 


0407 






TEST22 


04S0 






TEST23 


0530 






TEST24 


0612 






TEST25 


0645 






TE3T26 


0722 






TEST27 


1001 
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ERRORS DETECTED I 

links ceme:f!ated I 9 

RUN.TIMH 19 SECONDS 
2K CORE USED 



/DKC8.AA OPTION TEST 1 MAINOECB8.0JDKA.B.L' IK PART 3 PAL10 V14JA 16.JUN.75 

/3KC8.AA OPTION TEST 1 MAlNDEC.BJ.tJjOKA.B.L. IK PART ! 

/COPYRIGHT (C) 1974, 1975 DIGITAL EQUIPMENT CORPORATION 

/PROGRAMMER! BRUCE HANSEN 
/ 



/THE FOLLOWING LISTING WILL CORRESPOND TO THE PAPER TAPE LABELED 
/MAINBEO03.DJDKA.B.PH3, IK VERSION PART 1\ THIS PAPER TAPE AND 
/LISTING WILL BE THE THIRD OF FOUR IK SEGMENTED »APE9 TAPES 
/AND LISTINGS FOR COMPUTERS WITH LESS THAN 4K OF MEMdRV, 

///////////// ////////// //////////////// /// ///////I// // i/i/n h •/////////// 
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/DKCB.AA OPTION TEST 1 MAI'lDEOM'DjnKA-B.L IK PART 5 
/ 

/COPYRIGHT (C) 1974, 1979 DIGITAL EUUJPMENT CORPORATION 
/ 

/PROGRAMMER I BRUCE HANSEN 
/ 



6007 
6102 
6103 

6244 
6005 
6004 



6630 

6032 
6334 
6035 

tin 



6041 
6042 
6044 
6045 
6046 



6135 

6136 
6137 



6570 
6571 
6572 
6573 
6574 
6575 
6576 



/PROCESSOR INSTRUCTIONS 

CAFs6007 

SPt«6102 

CAl«610J 

SBE»6101 

HLT«7402 

RM.PR6244 

RTF«6005 

(!TF«6004 

/OPTION BOARD NUMBER 1 JOT'S 



//SERIAL LINE UNIT 

/RECEIVER I0TS 

KCP"6030 

KSF'6031 

«CC«60S2 

KRS.6034 

KIE«6035 



/CLEAR ALL FLAGS 
/SKIP ON AC LOU FLIP. FLOP 
/CLEAR AC LOU TLIP-FLO' 
/SKIP ON BATTERY EMPTY 

/RESTORE MEMORY FIELD 



KRB.6036 

/TRANSMIT IOTS 

TPL'6040 
TSF»6041 
TCF.604Z 
TPC«6044 

SPI"6045 

TLS»6046 

/REAL TI"E CRYSTAL CLOCK 



/CLEAR RECEIVE FLAG i DON'T SET READER RUN 
/SKIP ON RECEIVE FLAG 

/CLEAR RECEIVE FLAG AND ACi SET READER RUN 

/READ RECEIVE BUFFER 

/AC 11=1 SET INTERRUPT ENABLE 

/AC 11»0 CLEAR INTERRUPT ENABLE 

/CLEAR RECEIVE FLAG AND AC, SET READER RUN AND READ 
/RECEIVE BUFFER 



/SET TRANSMIT FLAG 
/SKIP ON TRANSMIT FLAG 
/CLEAR TME TRANSMIT FLAG 
/LOAD TRANSMIT BUFFER AND TRANSMIT 

/SKIP IF TRANSMIT OR RECEIVE FLAG SET AND INT ENA SET TO A 1 
/LOAD TRANSMIT BUFFER, TRANSMIT »NO CLEAR TRANSMIT FLAG 



CLLE»6135 

CLCL«6136 
CLSK'6137 

/12 BIT PARALLEL I/O 

-8S- = 6!S7" 
0BSK1S571 
DBRDa6572 
DBCF.6573 
DBTO'6574 
D8SE«6575 
0BCE«6576 



/AC llnl SET INTERRUPT ENABLE 
/AC 11.0 CLEAR INTERRUPT ENABLE 
/CLEAR CLOCK FLAG 
/SKIP ON CLOCK FLAG 



/skip on data accepted, clear data accepted and data available 
/skip on data ready flag 



/READ DATA INTO AC 0-11 
/CLEAR DATA READV FLAG, ISSUE 
/LOAD AC 0.11 INTO BUFFER AN? 
/SET INTERRUPT ENABLE TO A 1 
/SET INTERRUPT ENABLE TO A 



DATA ACCEPTED OUT 
TRANSMIT DATA OUT 



16-JUN-7S 
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/DKCB.AA OPTION TEST % MAINUEC.0S.DJDKA.B-.L lK PART 3 PALj^ V142A 

6577 0SSS«6577 /ISSUE A STROBE PULSE 

/SWITCH REGISTER SETTINGS 

/SR0.1 - INHIBIT ERROR HALT 

/SRin - LOOP ON E R ROR 

/SR2»1 " LOOP ON TEST 

/SR3"1 - HALT AT COMPLETION OF A PROGRAM PASS 

/OPTION "OARD 1 SIMULATOR !OT<S 

6150 CLRSIM.6150 /CLEAR SIMULATOR CONTROL REGISTERS 

6151 L0ASSM.6151 /LOAD SIMULATOR CONTROL WORD 1 

6156 CLRDETs6156 /CLEAR READER RUN , STROBE, AND DATA AVAILABLE CATCHER F/FIS 

6197 SKPRQR.6157 /SKIP ON READER RUN CATCHER F/F SET 

6160 $IMCLH=616e /CLEAR CONTROL REGISTERS AND MOST OF LOGIC ON S I MUALTOR 

6161 STRFR(J«616l /START FREQUENCY CHECK (SLU OR RTO 

6162 SKPFR'1.6162 /SKIP ON FREOUENCY CHEeK I N PROGRESS 

6163 L0DFR0.6163 /READ FREOUENCY COUNT INTO AC 

6165 SKPDAV.6165 /SKIP ON DATA AVAILABLE CATCHER F/F SET 

6167 SKPSTR.6167 /SKIP ON STROBE CATCHER F/F SET 

/OPTION BOARD 1 SIMULATOR CONTROL H0 R D BIT ASSIGNMENTS 
/BIT 3 COUNTER RESET INACTIVATE 

/ ?«NO ACTION 



/BIT 
/ 

/9IT 
/SIT 
/BIT 
/BIT 



PARALLEL I/O CLEAR DATA 
AVAILABLE SELECT 

MOT USED 

NOT USED 

NOT USED 

RTC FREQUENCY OR 

SLU FREQUENCY CHECK 



1'TSt 

70ATA ACCEPTED IN 



1 = RTC 

*=SLU BAUD RATES 



/BIT 6 
/ 

/HIT 7 
/ 

/BIT 8 



REAL TIME CLOCK 
SLU EIA/Z0MA SELECT 
STOP 31T SELECT 



IsOFF 
!t = ON 



11E1A RECEIVE DATA 
H>20 MA RECEIVE DATA 



1»1 STOP BITS 
3=8 STOP BIT 



/BIT 9 
/BIT 10 



BAUD RATE SELECT 
BAUD RATE SELECT 



BIT 9, 10, U ALL 0'S 
EQUALS 110 BAUD, EACH 



/BIT 11 
/ 



BAUD RATE SELECT 



INCREASING BIT SEHCTS 
NEXT HIGHEST BAUD RATE', 
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3000 

3000 3302 

0031 6244 

0002 5403 

0303 1044 

0023 3000 

0021 2000 



0022 
0023 
0024 
0025 
0026 
0227 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 



:-000 
4423 
1030 
4424 
1021 
4425 
1153 
4426 
1400 
4427 
1275 
4430 
1511 
4431 
1131 
4432 
1142 
4433 
1453 
4434 
1534 
4435 
1207 
4436 
15*1 
4437 
1014 
4145 



302 /PROGRAM REVISION LETTER. MAINOEC.0S.DJOKA.B 

PMF /RESTORE MEMORY FIELDS 

JMP I 3 /RETURN TO INTERRUPT SERVICE ROUTINE 

S[MINT/SKPCHN/SJMCHK/RTCtNT/SlUlNT /INTERRUPT SERVICE ROUTINES 



SWITCH, P 
OPISEL, 2000 



0P2SEL, 



LOOPPC'JMS 

OONLOP=JMS 

CLSKWT'JMS 

PJODAT=JMS 

ERPOR=JMS 

PJODER.JMS 

TSF*AT=JMS 

KSFWAT=JMS 

SLUO«T«JHS 

SLUOER'JMS 

5HHCHK.JMS 

SIMCRK'JHS 

LOOSIM.JMS 

RTCENA-JMS 



I , 

PCLOOP 
I , 

LOPDON 
I , 

WTCLSK 
I , 

DATPIO 

AERROR 
I , 

OERPIO 
I , 

WATTSF 
I , 

WATKSF 
I , 

04TSLM 
I , 

DERSLU 
I , 

CHKSWH 
I , 

CHKSIM 
1 , 

SIML.00 
ENARTC 



/BIT 

/BIT 

/BIT 

/BIT 

/BIT 

/BIT 

/BIT 

/BIT 

/BIT 

/SIZE 

/ONE 

/BIT 



0«0 USE LOCATION 20 AS A PSEUDS SWITCH REGISTER 

0=i use hardware front panel sujtch register 

lal HAS OPTION 1 

2.1 HAS OPTION 2 

3.1 HAS 8A CPU SIMULATOR 

4U HAS Sa OPTION 1*2 SIMULATOR 

5.1 PROGRAM ON PDP.8A XOR(REQU!RIS BIT 4 SET ALSO) 
6.1 HAS PDP.SE TYPE CPU 

7.11 MEMORY SliE . 3< S»1K, J7=3!K, MEMORY 

CAN BE INCREASED IN IK INCREMENTS BY ADDING 
TO THE NUMBER IN BITS 7-11 
IS SET FOR THE ACT LINE 
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5440 

1230 



»RGE>jO = U*P I , 

ENQPAS 







/LOCATIONS U 


0041 


''000 


I NTFLG 1 




3042 


'030 


CLKFLG, 




0043 


"030 


CITi 





0044 


-'030 


CITl, 




0045 


'030 


TEST, 




3046 


'030 


TSTLOP, 




0047 


1030 


TSTCNT, 




0050 


3 033 


SAVCNT, 




0051 


"030 


PIOXMT, 




0052 


.3030 


PIOKEC, 





0053 


3000 


SLUXMT, 




0054 


1030 


SLUREC, 


3 


0055 


3000 


CONTWOi 




0056 


.-•377 


K377, 


377 


0057 


3230 


K200, 


300 


006? 


1252 


K252, 


PS2 


0061 


'125 


K123, 


125 


0062 


1252 


K5252, 


5252 


0063 


5525 


K2525, 


'525 


0064 


3037 


K7| 


7 


0365 


7774 


14, 


-4 


0066 


7770 


M10, 


• 10 


0067 


'1000 


SIMCNT, 




0373 


"000 


EXPACUl 





0071 


.'330 


LINK, 





0072 


;'000 


XMTFLG, 





0073 


■ '000 


RECFLG, 


3 


0074 


'•030 


RTCFLG, 


3 


0375 


"030 


P'JOJNT, 





0376 


1-030 


I1ACTV, 


p, 


0077 


6520 


BADPAS, 


6520 


0103 


A500 


GOODPS, 


6500 


0101 


7634 


ACTCNT, 


-144 


0132 


7634 


»144, 


-1«4 



/ACT LINE ERROR RETURN TO FICLO 7 
/ACT LINE GOOD RETURN TO FIELD 7 



/ROUTINE TO SETUP FIELD TO HANDLE INTERRUPTS FRO" ANOTHER FIELD 



0133 : ! 000 PATCH, 

3134 1533 

0105 3123 

0136 6231 

0107 1130 

0110 3524 

3111 1127 

0112 3525 

0113 1123 

0114 3526 







TAD ] 


PATCH 


OCA 


SAVADD 


CDF 




TAD 


KRMF 


OCA 


1 Kl 


TAD 


KJMP 


OCA 


: K2 


TAD 


SAVAOD 


OCA 


I K3 



/GET THE INTERRUPT SERVICE ADDRESS 
/SAVE INTERRUPT ADDRESS 
/CHANGE DATA FIELD TO. FIELD 
/GET THE INSTRUCTION RMF 
/PUT IT IN LOCATION 1 OF FIELD 
/GET THE INSTRUCTION JMP 1 3 
/PUT IT IN LOCATION j OF FIELD 
/GET THE INTERRUPT SERVICE ADDRESS 
/PUT IT IN LOCATION J IF FIELD 
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0115 


6224 




9 t r 

J. r 




/QPT THF PSDRRiM F 1 FJ n !WTfi T'Uf iC 


0114 


1131 




TAD 


KCur 




0117 


3120 




OCA 


! +1 


i>3\tT IT !M TUF WFXT 1 flPAfTflN 




7402 




HL T / C D F* 




yFwrcUTE IT 

/ fc * £. L/ U > S. { i 




2103 




I at 


... _ 

PATCH 


^ inD l TO THE ENTRANCE 


0122 


9503 




JMP 1 


PATCH 


f ™ C 1 Un|' 


0123 


"000 


«! au inn . 









0124 


3001 


Kl| 








0125 


?002 


K2| 








0126 


3003 


K3, 


S 






0127 


9403 


KJMP, 


JMP I 


3 




0130 


6244 


KRMF, 


6244 






0131 


6201 


KCDF, 


cor 






0132 


6005 


KRTF i 


RTF" 






0133 


0000 


ACTFLG, 









0134 


("000 


CLKSNC, 










/THIS ROUTINE "Sep WHEN RUNNING ON THE ACT LINE TO SIGNIFY THAT NO 

/ERRORS HAVE BEEN ENCOUNTERED 

0135 0000 TSTGOPi 

0136 1022 TAD OP2SEL 

0137 7700 SM» CIA 

0140 5535 JMP I TSTGOO 

0141 *0J2 ior 

0142 6272 Cir 70 

0143 4500 JMS I GOODPS 

0144 5535 JMP I TSTGOO 



0145 C000 ENAHTCi 

0146 1022 TAO 0P2SEL 

0147 7710 K7713, SPA CLA 

0150 7301 CLA CLL !A5 

0151 6135 CLLE 

0152 7200 CLA 

0153 5545 JMP I ENARTC 

T200 .200 

IFDET 0P13K <PAGE> 
IFDEP 0P13K <PAGE> 



/GET THE HARDWARE FLAG 

/ARE WE ON THE ACT LINE? 

/NO | RETURN TO THE PROGRAM 

/TURN THE INTERRUPT OFF 

/CHANGE THE INSTRUCTION TO FIELD 7 

/GO TO PROM 

/RETURN Tg THE PROGRAM 



/CHECK TO SEE IF ON ACT LINE 
/If NOT CLEAR RTC INT EN* 
/SET AC BIT 11 

/LOAD SIT 11 INTO CLOCK INT SNA 



/TEST 2» - CHECKS THAT KRB WILL CLEAR THE RCV FLAG', THE RCV FLAG 
/IS SET 9y ISSUING TLS COMMAND " ( 

#»«*•##••##»•»#•#•##•»•»###••••»••• 

0200 6160 SIMCLR 

0201 4423 TEST2S, 100PPC /SETUP TEST COUNT AND SCOPE LOOPING ADDRESS 
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0232 7775 

0203 4103 

0204 1052 

0205 3042 
0296 4436 
02*7 4al7 
0210 4437 



0211 3041 

0212 6007 

0213 4145 

0214 6001 

0215 6046 

0216 4431 



0217 
0220 
0221 



4457 
3041 
4427 



0222 6042 

0223 6001 

0224 4432 

0225 4427 
3226 6034 
0227 7610 

0230 4427 

0231 6031 

0232 4427 



0233 
0234 



!041 
4427 



0235 6036 

0236 7610 
3237 4427 

0240 6001 

0241 6031 

3242 7610 

3243 4427 

3244 1041 
0245 7640 
3246 4427 
0247 4454 



■ 3 

JMS 

SKPCHN 
OCA 

SJMCHK 

4017 

LODSIM 



PATCH 
CLKFLO 



OCA INTFLG 

CAP 

RTCENA 

ION 

TLS 

TSFWAT 
ERROR 

IS2 INTFLG 

ERROR 

TCP 

ION 

KSFWAT 

ERROR 

KRS 

SKP CLA 
ERROR 
KSF 
ERROR 

ISi INTFLG 

ERROR 

KRB 

SKP CLA 
ERROR 
ION 
KSF 

SKP CLA 
ERROR 

TAO INTFLG 
SZA CL* 
ERROR 
OONLOP 



/SIMULATOR ITERATION COUNTER 
/SET UP SKJP CHAIN 

/SET INTERRUPT TO IGNORE RTC 

/CHECK TO SEE IF SIMULATOR IS SELECTED 

/CONTROL WORD FOR THE SIMULATOR 

/LOAD SIMULATOR IF SELECTED ALSO SET SCOPE 

/LOOP 5 THIS ADDRESS (F SIMULATOR SELECTED 

/OTHERWISE SCOPE LOOP IS THIS ADDRESS +1 

/CLEAR PROGRAM INTERRUPT f LAO 

/CLEAH ALL FLAGS AND SET SLU INT ENA 

/SET REAL TIME CLOCK INT ENA 

/TURN THE INTERRUPT ON 

/TRANSMIT AND CLEAR THE FLAG 

/WAIT FOR THE KM I T FLAG To SET 

/XMIT FLAG FAILED TO SET BY TLS 

/DID THE PROGRAM INTERRUPT 

/FAILED TO INTERRUPT WITH I NT ENA AND XMIT FLAG 

/CLEAH XMIT FLAG 

/TURN THE INTERRUPT ON 

/WAIT FOR THE RCV FLAG TS SET 

/RECEIVE FLAG FAILED TO SET 

/READ THE RECEIVE BUFFER 

/KRS SKIPPED 
/SKIP ON RECEIVE FLAG 
/KRS CLEARED THE RCV FLAG 
/DID THE PROGRAM INTERRUPT 

/FAILED TO INTERRUPT WITH INT ENA * RCV FLAG 
/CLEAH RECEIVE FLAG 

/KRB SKIPPED 

/TURN THE INTERRUPT BACK ON 
/SKIP ON RECEIVE FLAG 

/KRB FAILED TO CLEAR RECEIVE FLAG 
/GET THE PROGRAM INTERRUPT FLAG 

/PROGRAM INTERRUPTED WITHOUT RCV FLAG SET 
/REPEAT TEST IF NOT DONE OR LOOP IF SR2«1 



/<•«>•••<•«•••••••«•••••••••••••<<>•••••••••'•••••••••••••••<>•••••••••• 

/TEST 30 • CHECKS THAT CAP WJLL CLEAR RCV PLAG 



0252 4423 

3251 7775 

0252 4436 

0253 4017 

0254 4437 



0255 3041 

0256 6007 

0257 4145 



TEST30I LOOPPC 
-3 

SIMCHK 
•017 

L005IM 



OCA INTFLG 
OAF 

RTCENA 



/SETUP TEST COUNT AND SCOPE LOOPING ADDRESS 

/SIMULATOR ITERATION COUNTER 

/CHECK TO SEE IF SIMULATOR IS SELECTED 

/CONTHOL WORD FOR THE SIMULATOR 

/LOAD SIMULATOR IF SELECTED ALSO SET SCOPE 

/LOOP * THIS ADDRESS IF SIMULATOR SELECTED 

/OTHERWISE SCOPE LOOP IS THIS ADDRESS *1 

/CLEAR "PROGRAM INTERRUPT FLAG 

/CLEAR ALL FLAGS 

/SJT HEAL TIME CLOCK INT ENA 



/DKC8.AA OPTION TEST t MM NDEC.BS.OJOKA.S.l. t K PART 3 PALiU Vi4 2 A 1S.JUN.79 9i a4 PACE 2.6 

/TURN THE INTERRUPT ON 
/TRANSMIT AND CLEAR THE XmIT FLAG 
/WAIT FOR XM IT FLAG 
/XHIT FLAG FAILED TO SET 
/DID THE PROGRAM INTERRUPT 
/PROGRAM FAILED TO INTERRUPT 
/CLEAR TRANSMIT FLAG 

/WAIT FOR RECEIVE FLAG 
/RECEIVE FLAG FAILEO TO SET 
/DID THE PROGRAM INTERRUPT 
/PROGRAM FAILED TO INTERRUPT 
/CLEAR ALL FLAGS 
/TURN THE INTERRUPT 3ACK ON 
/SKJP ON RECEIVE FLAG 

/INITIALISE FAILEO TO CLEA* RECEIVE FLAG 
/REPEAT TgST IF NOT DONE OR LOOP IF SR2»l 



0242 


6001 


ION 


0261 


6046 


T L S 


0262 


4431 


TSFWAT 


0263 


4427 


ERROR 


0264 


2041 


ISZ INTFLG 


0265 


4427 


ERROR 


0266 


6042 


TCF 


0267 


4001 


ION 


0270 


4432 


KSFWAT 


0271 


4427 


ERROR 


0272 


2041 


ISZ INTFLG 


0273 


4427 


ERROR 


0274 


6037 


CAF 


0275 


6001 


ION 


3276 


6031 


KSF 


0277 


7610 


SKP CLA 


03M 


4427 


ERROR 


0301 


4424 


DONLOP 



/TEST 31 . gHECKS THE EFFECT OF THE SLU lOT'S UPON THE AC 
/«««#••*«»»•»«*»»•««*»»»«*««««»*»»»•»»»*»»»««»««»,•#»•»»»- 



0302 
03513 
0304 
0305 
0306 



0307 
3313 
0311 
0312 
0313 
0314 
0315 
0316 
0317 
032? 
0321 
0322 
0323 
03?4 
0325 
0326 
0327 
0330 
0331 
0332 
0333 
0334 
0335 
0336 
0337 



4423 

7777 
4436 
4007 
4437 



3041 
6007 
4145 
6001 
7344 
6035 
7050 
7620 
4427 
7240 
6032 
7640 
4427 
7240 
6036 
7510 
4427 
7240 
6034 
704a 
7640 
4427 
7340 
6031 
7040 



TEST31, LOOPPC 
-1 

SIMCHK 

4007 

LODSIM 



3CA INTFLG 
CAF 

RTCENA 
ION 

CLA CLL CMA RAL 
X IE 

CMA RAR 

SNL CL» 
ERROR 
CLA CMA 
KCC 

SZA CLA 

ERROR 

CLA CMA 

KRB 

SPA 

ERROR 

CLA CMA 

KRS 

CMA 

SEA CLA 
ERRO» 

CLA CLL CMA 

KSF 

CMA 



/SETUP TEST COUNT AND SCOPE LOOPING ADDRESS 

/SIMULATOR ITERATION COUNTER 

/CHECK TO SEE IF SIMULATOR IS SELECTED 

/CONTROL WORD FOR THE SIMULATOR 

/LOAD SIMULATOR IF SELECTED ALSO SET SCOPE 

/LOOP = THIS ADDRESS IF SIMULATOR SELECTED 

/OTHERWISE SCOPE LOOP IS THIS ADDRESS *1 

/CLEAR PROGRAM INTERRUPT FLAG 

/CLEAK ALL FLAGS 

/SET REAL TIME CLOCK INT ENA 

/TURN THE INTERRUPT ON 

/SET THE AC TO -2 

/CLEAR SLU INTERRUPT ENABLE 



/KIE CHANGtP THE AC 
/CLEAR RECEIVE FLAG AND AC 
/KCC FAILED TO CLEAR THE AC 

/READ RECEIVE FLAG, CCA' AC AND READ RECEIVE SUFFER 
/KRB FAILED TO CLEAR AC 

/READ RECEIVE BUFFER ■ INCLUSIVE OR WITH AC 
/SET THE AC BACK TO a 



/KRS CHANGED THE AC 
/SKIP ON RECEIVE FLAG 



/DKCSt-AA OPTION TEST 1 MA I NDEC.08.DJDKA.B,L IK PART 



0340 


7640 


S2A CLA 


0341 


4427 


ERROR 


0342 


7240 


CLA CMA 


0343 


6030 


KQF 


0344 


7040 


CMA 


0345 


7640 


SZA CL» 


0346 


4427 


ERROR 


0347 


7240 


CLA CMA 


0350 


6040 


TFL 


0351 


7040 


CMA 


0352 


7640 


5ZA CLA 


0353 


4427 


ERROR 


0354 


7240 


CL* CMA 


0355 


6042 


TCF 


0356 


7040 


CMA 


0357 


7640 


SZA CLA 


0363 


4427 


ERROR 


0361 


7240 


CLA CMA 


0362 


6041 


TSF 


0363 


7040 


CMA 


0364 


7640 


SZA CLA 


0365 


4427 


ERROR 


0366 


7240 


CLA CMA 


0367 


6044 


TPC 


0373 


7040 


CMA 


0371 


'640 


SZA CLA 


0372 


4427 


ERROR 


0373 


4431 


TSFWAT 


0374 


4427 


ERROR 


0375 


4432 


KSFWAT 


0376 


4427 


ERROR 


0377 


6042 


TCP 


0492 


6030 


KCF 


0401 


7240 


CLA CMA 


0402 


6045 


SPI 


0403 


7040 


CMA 


0404 


7640 


SZA CLA 


0405 


4427 


ERROR 


34«4 


7240 


CLA CM* 


04^7 


6046 


TLS 


3413 


704.3 


CMS 


0411 


7640 


SZA CLA 


0412 


4427 


ERROR 


0413 


4431 


TSFWAT 


0414 


4427 


ERROR 


0415 


4432 


KSFWAT 


0416 


4427 


ERROR 


0417 


6042 


TCF 


0420 


6032 


KCC 


0421 


1041 


TAD INTFLG 


0422 


7640 


SZA CLA 


0423 


4427 


ERROR 


042« 


4424 


ng"LOP 
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/KSF CHANGED THE AC 
/CLEAH RECtlVE FLAG 



/KCF CHANGED THE AC 
/SET TRANSMIT FLAG 



/TFL CHANGED THE AC 
/CLEAR THE TRANSMIT FLAG 



/TCF CHANGED THE AC 
/SKIP ON TRANSMIT FLAG 



/TSF CHANGED THE AC 

/LOAD TRANSMIT BUFFER AND TRANSMIT 



/TPC CHANGED THE AC 
/WAIT FOR THE TRANSMIT FLAG 
/TRANSMIT FLAG FAILED TO SET 
/WAIT FOR THE RECEIVE FLAG 
/RECEIVE FLAG FAILED TO SET 
/CLEAR THE X«IT FLAG 
/CLEAR THE RECEIVE FLAG 

/SKIP !F XMJT/RCV FLAG SET AND I NT ENA SET 



/SPI CHANGED THE AC 

/LOAD TRANSMIT BUFFE". TRANSMIT * CLEAR FLAG 



/TLS CHANGED THE AC 
/WAIT FOR THE TRANSMIT FLAG 
/TRANSMIT FLAG FAILED TO SET 
/WAIT FOR THE RECEIVE FLAG TO SET 
/ERROR RECEIVE FLAG FAILED TO SET 
/CLEAR THE TRANSMIT FLAG 
/CLEAH AC AND RECEIVE FLAG 
/□ 1 THE PROGRAM INTERRUPT? 

/PROGRAM INTERRUPTED WITHOUT INT ENA SET 
/REPEAT TEST IF MOT DONE OR LOOP IF SR2=1 
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/TEST 32 . CHECKS THAT ALL HEROES CAM BE TRANSMITTED AND RtAD BACK IN 
/ * ••»«» •« •••»•»••»••«• ••• 



0425 
0426 
04?? 
0430 
0431 



0432 
0433 
0434 
0435 
0436 



4423 
7775 
4436 
4017 
4437 



3241 
■"053 
4433 
4434 
4424 



TEST32, LOOPPC 
-3 

S J MCHK 

4017 

LODSIM 



DC* I NTFL.G 
nCA StUXMT 
SLUDAT 
SLUDER 
OONLOP 



/SETUP TEST COUNT AM SCOPE LOOP ADDRESS 

/SIMULATOR ITERATION COUNTER 

/CHECK TO SEE IT SIMULATOR IS SELECTED 

/CONTROL WORD TOR THE SIMULATOR 

/LOAD SIMULATOR IF SELECTED ALSO SET SCOPE 

/LOOP • THIS ADDRESS I P SIMULATOR SELECTED 

/OTHERWISE SCOPE LOOP IS THIS ADDRESS *1 

/CLEAR PROGRAM INTERRUPT FLAS 

/CLEAR THE WORD TO BE TRANSMITTED 

/GO TRANSMIT, READ AND COMPARE THE WORD 

/DATA ERROR-WORD WAS NON ZERO BEING READ BACK 

/REPEAT TEST IF NOT DONE OR LOOP IP SR2«1 



/TEST '3 . CHECKS THAT ALL ONES CAN RE TRANSMITTED AND REaO SACK 



0437 4423 

0440 7775 

0441 4436 

0442 4n7 

0443 4437 



0444 3041 

0445 1056 

0446 3053 

0447 4433 

0450 4434 

0451 4424 



TEST33, LOOPPC 
-3 

SJMCHK 

4017 

LOOSIM 



OCA INTFLG 
TAB K377 
OCA SLUXMT 
SLUDAT 
SLUDER 
OONLOP 



/SETUP TEST COUNT ANO SCOPE LOOP ADDRESS 

/SIMULATOR ITERATION COUNTER 

/CHECK TO SEE IF SIMULATOR IS SELECTED 

/CONTROL WORD POR THE SIMULATOR 

/LOAD SIMULATOR IF SELECTED ALSO SET SCOPE 

/LOOP * THIS ADDRESS IF SIMULATOR SELECTED 

/OTHERWISE SCOPE LOOP IS THIS ADDRESS *1 

/■CLEAR PROGRAM INTERRUPT FLAS 

/SET THE WORD TO BE TRANSMITTED TO ALL ONEIS 
/GO TRANSMIT, READ AND COMPARE 
/DATA ERROR - WORDS DO NOT COMPARE 
/REPEAT TEST IP NOT DONE OR LOOP IF SR2 = 1 



0452 4423 

0453 7775 

0454 4436 

0455 4017 

0456 4437 



0457 3041 

0460 3053 

0461 4433 

0462 4434 

0463 1056 

0464 3053 

0465 4433 

0466 4434 



/TEST 34 - c H E cKS THAT A COMPLEMENTING PATTERN 1300.377) C AN Be 
/TRANSMITTED AND READ BACK", 

/»,...„.........».,»,..........•..,.».••...•......••......•«.*•» 



TEST34, LOOPPC 
• 3 

SJMCHK 

4017 

LOOSIM 



DCA INTFLG 
OCA SLUXMT 
SLUDAT 
SLUDER 
TAO K377 
OCA SLUXMT 
SLUQAT 
SLUDER 



/SETUP TEST COUNT AND SCOPE LOOPING ADDRESS 

/SIMULATOR ITERATION COUNTER 

/CHECK TO SEE IF SIMULATOR IS SELECTED 

/CONTROL WORO FOR THE SIMULATOR 

/LOAD SIMULATOR IF SELECTEO ALSO SET SCOPE 

/LOOP ■ THIS ADDRESS IF SIMULATOR SELECTED 

/OTHERWISE SCOPE LOOP IS THIS ADDRESS *1 

/CLEAR PROGRAM INTERRUPT FLAS 

/CLEAR THE WORD TO BE TRANSMITTED 

/GO TRANSMIT REAO ANO COMPARE THE WORD 

/DATA ERROR - TRANSMITTING HEROES 

/SET THE WORD TO TRANSMIT EQUAL TO 377 
/TRANSMIT, READ AND COMPARE THE WORD 
/DATA ERROR - WHILE TRANSMITTING 377 



/DKC8-AA OPTION TEST 1 MAINUEC-0S-OJOKA-B-L IK PART 3 PALI" V1 4 2A 16-JUN-75 9104 PAGE 2.9 

04S7 MJ4 OONLOP /REPEAT TEST IF MOT DONE OR LOOP IF SR2«1 



/TEST 35 - CHECKS THAT A COMPLEMENT I NG PATTERN (252-125) CAN BE 
/TRANSMITTED ANO READ BACK', 
/»«#.•###»•»••»»*« 



0470 
0471 
0472 
0473 
0474 



0475 
0476 
0477 

050? 
0521 
0532 
0503 
0504 
0505 
3506 



4423 
7775 
4436 
4007 

4437 



3041 
]060 
3053 
4433 
4434 
1061 
3053 
4433 
4434 
4424 



TEST35, LOOPPC 
-3 

SIMCHK 

4087 

LOOSIM 



DC« INTFLG 
TAD «252 
DCA SLUXMT 
SLUOAT 
SLUPER 
TAO «125 
OCA SLUXMT 
SLUDAT 
SLUDER 
OONLOP 



/SETUP TEST COUNT AND SCOPE LOOPING ADDRESS 

/SIMULATOR ITERATION COUNTER 

/CHECK TO SEE IF SIMULATOR IS SELECTED 

/CONTHOL WORD FQR THE SIMULATOR 

/LOAD SIMULATOR IF SELECTED AL50 SET SCOPE 

/LOOP = THIS ADDRESS IF SIMULATOR SELECTED 

/OTHERWISE SCOPE LOOP IS THIS ADDRESS *1 

/CLEAR PROGRAM INTERRUPT FLAG 

/SET THE TRANSMIT WQRD TO 252 
/TRANSMIT, READ AND COMPARE THE WORD 
/DATA ERROR - TRANSMITTED A 252 

/SET TRANSMIT WORD TO 125 

/TRANSMIT, READ AND COMPARE THE WORD 

/DATA ERROR - TRANSMITTED A 125 

/REPEAT TEST IF "OT OONE OR LOOP IF SR2 = 1 



/TEST 36 - CHECKS FOR LOADING ANO READING A BINARY COUNT PATTERN, 



0507 4423 

0510 7777 

0511 1056 

0512 7041 

0513 3050 

0514 JU50 

0515 3047 

0516 4436 



TEST30, 



0517 
0520 



4007 
4437 



0521 1047 

0522 S'056 

0523 3053 

0524 4433 

0525 4434 

0526 4424 



LOOPPC 
-1 

TAD «377 
CIA 

OCA SAVCNT 

TAO SAYCNT 

OCA TSTCNT 

SJMCHK 

4007 

LOOSIM 

TAO TSTCNT 

ANO K377 

DCA SLUXMT 

SLUOAT 

SLUDER 

OONLOP 



/SETUP TEST LOOP ADDRESS 
/SIMULATOR ITERATION COUNTER 



/SgTUP COUNTER TO TRANSMIT 377 TIMES 



/CHECK FOR THE SIMULATOR 
/CONTROL WORO FOR THE SIMULATOR 
/LOAD THE SIMULATOR IF SELECTED 
/GET THE WORn TO BE TRANSMITTED 
/MASK OFF THE 8 BITS 
/SET TRANSMIT WORD TO THIS NUMBER 
/TRANSMIT READ AND COMPARE THE WORD 
/DATA ERROR. 

/REPEAT TEST IF NOT DONE OR LOOP IF SR2»1 



/TE3"3rrCHECK"Fo"*OADING AND READING A BINARY COUNT PATTERN WITHOUT 
/THE SLU INTERRUPT ENABLE SET TO SAVE T 1 ME IN SKIP CHAIN SO THAT THE 

/word can be reao faster 

z » .»....«. 

/SET UP TEST COUNT AN TEST LOOP ADDRESS 



0527 4423 TEST37, LOOPPC 



/DKCs-AA OPTION TEST 1 MA I NOEO08-D JOKA-R-L IK PART 3 PALI" VH2A l6"JUN»7! 
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0533 


7777 


"1 




/SIMULATOR ITERATION COUNTER 


0531 


1056 


TAO 


K377 


/SETUP COUNTER TO TRANSMIT 377 TIMES 


0532 


7041 


CIA 




0533 


3050 


DCA 


SAVCNT 




0534 


1050 


TAD 


SAVCNT 




0535 


304 7 


DCA 


TSTCNT 




0536 


4436 


5IMCWK 




/CHECK TO SEE IP SIMULATOR IS SELECTED 


0537 


4017 


4017 




/SIMULATOR CONTROL WORD 


0540 


4 437 


LODSIH 




/LOAD THE SIMULATOR CONTROL WORO 


0541 


6007 


CAF 




/CLEAR ALL FLAGS 


0542 


4145 


RTCENA 




/SET REAL TIME CLOCK INT £NA 


0543 


6001 


ION 




/TURN THE INTERRUPT ON 


0544 


3041 


PCA 


I NTFLG 


/CLEAR PROGRAM INTERRUPT FLAG 


0545 


6035 


K I E 




/CLEAR SLU INT ENAUE 


0546 


1047 


TAD 


TSTCNT 


/GET THE TEST COUNT NUMBER 


0547 


T056 


AND 


K377 


/MASK OUT FOR 9 SITS 


0550 


3053 


OCA 


SLUXMT 


/SAVE THE WORD TO BE TRANSMITTED 


0551 


1053 


TAD 


SLUXMT 


/GET THE WORD 


0552 


6046 


TLS 




/TRANSMIT IT 


0553 


4431 


TSFWAT 




/WAIT FOR THE TRANSMIT FLAG TO SET 


0554 


4427 


ERROR 




/TRANSMIT FLAG FAILED TO SET 


0555 


6042 


Tor 




/CLEAR THE TRANSMIT FLAG 


0556 


1432 


KSFWAT 




/WAIT FOR THE RECEIVE FLAG TO SET 


0557 


4427 


ERROR 




/RECEIVE FLAG FAILED TO SET 


0560 


7240 


OLA 


CMA 


/SET THE AO TO ALL ONES 


0561 


6036 


KRB 




/READ THE WORD 


0562 


3054 


DCA 


SLUREC 


/SAVE THE WORD READ 


0563 


1053 


TAO 


SLUXMT 


/COMPARE THE WORD TRANSMITTED WITH THE 


0564 


7041 


D I A 




0565 


1054 


TAD 


SLUREC 




0566 


7640 


S2 A 


CLA 


/ART TWFV rail Al 9 


0567 


4434 


SLUDER 




/NO, DATA ERROR ON SERIAL LINE UNIT 


0572 


1041 


TAO 


INTFLG 


/GET THE PROGRAM INTERRUPT FLAG 


0571 


'640 


SHA 


CLA 




0572 


4427 


ERROR 




/PROGRAM INTERRUPTED WITHOUT INT ENA 


0573 


4424 


OONLOP 




/DONE? OR REPEAT TEST IF SR2!1 


0574 


7000 


MOP 






7090 








0376 


1021 


TAO 


OPISEL 


/GET THE HARDWARE CONFIGURATION 


0577 


i057 


*ND 


k200 


/CHECK FOR THE SIMULATOR 


06*2 


7650 


SNA 


CLA 


/IS IT SELECTED 


0601 


S440 


PRGEND 




/NO, END DP PROGRAM IF NO SIMULATOR 


0602 


'204 


JHP 


TEST38 


/YES , GO DO SIMULATOR TEST 


0603 


7000 


NOP 







/THIS TEST IS ENTERED WHEN SIMULATOR IS SELECTED, 
/TEST 38 , CHECKS THAT READER RUN CAN BE SET BY KOC AND KRB AND 
/CLEARED BY INlALIZE, THE SIMULATOR 13 USED TO CHECK THAT READER 
/RUN SETS AND CLEARS, 

/.......... , , » 

0604 4423 TEST38, LOOPPC /SETUP TEST COUNT AND TEST LOOP ADDRESS 
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0605 
0606 
0607 
061Z 
0611 
0612 
0613 
0614 
0615 
0616 
0617 
0620 
0621 
0622 
0623 
0624 
0625 
3626- 
0627 
0630 
0631 
0633 
0633 
0634 
0635 
0636 
0637 
0643 
0641 
0642 
0643 
0644 
0645 
0646 
0647 
065? 
0651 
0652 
0653 



7777 
4436 

4000 
4437 
6007 
4145 
3041 
4103 
1052 
6001 
6156 
6157 
7610 
4427 
6032 
6157 
4427 
6007 
4145 
6001 
6156 
6157 
'410 
4427 
6036 
730 
6157 
4427 
6007 
4145 
6001 
6156 
6157 
'610 
4427 
1041 
7640 
4427 
4424 



•1 

SIMCHK 
4000 
LODSIM 
CAF 

RTCENA 

DCA 

JMS 

SKPCHN 
ION 

CLRDET 

SKPRDR 

SKP 

ERROR 

KCC 

SKPRDR 

ERROR 

CAF 

PTCENA 
ION 

CLROET 
SKPRDR 
SKP 

FRRQR 

KRB 

CL* 

SKPRDR 

ERR0R 

CAF 

RTCENA 
ION 

CLRDET 

SKPRDR 

SKP 

ERROR 

TAD 

SZA 

ERROR 

DONLOP 



INTFLG 
PATCH 



CLA 



INTFLG 
CLA 



/SIMULATOR ITERATION COUNT 
/CHECK TOR SIMULATOR 
/SIMULATOR CONTROL WORD 
/LOAD THE SIMULATOR CONTROL WORD 
/CLEAR ALL 

/SET REAL TIME CLOCK INT ENA 
/CLEAH THE PROGRAM INTERRUPT FLAG 



/TURN THE INTERRUPT 5N 

/CLEAR HEADER RUN DETECTOR FLIP-FLOP 

/SKIP ON READER RUN F/F SET 

/READER RUN IS SET AFTER A INITIALIZE 

/CLEAR RECEIVE FLAG ANO SET READER RUN 

/SKIP ON READER »UN SET 

/KCC FAILED TO SET READER RUN 

/CLEAR ALL INCLUDING READER RUN F/F 

/SET REAL TIME CLOCK I NT ENA 

/TURN THE INTERRUPT RACK ON 

/CLEAR READER RUN DETECTOR F/F 

/SKIP ON READER RUN SET 

/INITIALIZE FAILED TD CLEAR READER RUN 
/CLEAR AC AND RECEIVE FLAG AND SET READER RUN 

/SKIP ON READER RUN DETECTOR F/F SET 

/KRB FAILED TO SET READER RUN 

/CLEAR ALL INCLUDING READER »UN F/F 

/SET REAL TIME CLOCK INT ENA 

/TURN THE INTERRUPT DN 

/CLEAR READER RUN DETECTOR F/F 

/SKIP ON READER RUN F/F SET 

/INITIALIZE FAILED TO CLEAR READER RUN 
/GET THE PROGRAM INTERRUPT FLAG 

/PROGRAM INTERRUPTED 

/DONF OR REPEAT TEST IF SR2=l 



/«.**»»*«»*»..*«*«»•».« »«».**« *.*«.«.«*... •»*»•».*».»•#» **.«**««««««.« 

/THIS TEST IS ENTERED WHEN SIMULATOR. IS SELECTED , 

/TEST 39 . CHECKS THAT READER RUN. MILL CLEAR AFTER A WORO HAS BEEN TRANSMITTED 
/AND DATA LOOPS RACK INTO THE RECEIVE SUFFERS USING THE 20 MA CURRENT 
/LOOP FOR 110 BAUD TO 96D0 BAUD , 



0654 4423 TEST39, LOOPPC 

0655 7771 -7 

0656 4436 SJMCHK 

0657 4000 4000 

0660 4437 LODSIM 

0661 6007 CAF 

0662 4145 RTCENA 



/SETUP TEST COUNT AND TEST LOOP ADDRESS 

/SIMULATOR ITERATION COUNTER 

/CHECK FOR SIMULATOR 

/SIMULATOR CONTROL WORD 

/LOAD THE SIMULATOR 

/CLEAR ALL FLAGS 

/SET REAL TIME CLOCK I NT ENA 
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2663 6001 

0664 6835 

066! 61S6 

0666 6157 

0667 7610 
0678 4437 

0671 6032 

0672 6157 

0673 4487 

0674 6046 

0675 4431 

0676 4427 
13677 6042 
0700 4432 



0701 
0702 



4427 
6156 



0703 6157 

0704 7610 

0705 4427 

0706 4424 
07*7 5440 



!0« 
KJE 

CLROET 

SKPRBR 

SKP 

ERROR 

KCC 

5KPR0R 

ERROR 

TLS 

TSFWAT 

ERROR 

TCP 

KSFWAT 

ERROR 

CLROET 

SKPROR 

SKP 

ERROR 

HONtOP 

PRGENQ 



CLA 



CLA 



/TURN THE INTERRUPT ON 
/DISABLE SLU I NT ENABLE 
/CLEAR READER RUN 
/SKIP ON READER DETECTOR F/F SET 

/READER RUN FAILED TO CLEAR SY INIT 
/SET READER RUN 

/SKIP ON READER RUN DETECTOR F?F SET 
/KCC FAILED TO SET READER RUN 
/TRANSMIT 

/Wait pcr the transmit flag 
/transmit flag failed to set 
/clear the transmit flag 

/WAIT FOR THE RECEIVE FLAG 
/RECEIVE FLAG FAILED TO SET 
/CLEAR READER RUN DETECTOR F/F 
/SKIP ON REAOER RUN DETECTOR F/F SET 

/CLOCK PULSE TO READER RUN FAILED TO CLEAR REAOER RUN 
/REPEAT TEST FOR NEXT SAUD RATE 
/END 3RD IK SEGMENT 



IFDEF 0P13K <PADE> 



100? 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1013 
1011 
1012 
1013 



7340 
1200 
3045 
1600 
3067 
7240 
3050 
1050 
3047 
2200 
5600 



1014 3000 

1015 1055 

1016 6151 

1017 7300 
1023 5614 



/ROUTINE TO SETUP * OF PASSES/TEST AMU TO STORE THE RETURN ADDRESS FOR SCOPE LOOPING 

PCLOOPi 



CL» CLL CMA 

TAD PCLOOP 

DCA TEST 

TAD I PCLOOP 

OCA SIMCMT 

CL» CMA 

DCA SAVCNT 

TAD SAVCNT 

OCA TSTCNT 

IS2 PCLOOP 

JMP I PCLOOP 



SIMLOD. 



TAD CONTWO 
LOADSM 
CLA CLL 
JMP I SIMLOO 



/GET The control word 

/LOAD THE SIMULATOR CONTROL WORD 
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1021 !"000 

10?2 2047 

1023 5446 

1024 1021 

1025 3057 

1026 7650 

1027 5237 

1030 2047 

1031 7610 

1032 5237 

1033 2055 

1034 1050 

1035 3047 

1036 5446 

1037 4435 

1040 7006 

1041 7708 

1042 5621 

1043 5445 



LOPPON, 

ISi TSTCNT 

JMP ! TSTLOP 

TAO 0P1SEL 

AND K2B0 

SNA CLA 

JMP LOOPSW 

IS! SIMCNT 

SKP CLA 

JMP LOOPSW 

IS! CONTWD 

TAD SAVCNT 

DCA TSTCNT 

JMP I TSTLOP 

LOOPSW 1 SWHCHK 
RTL 

SMA CL* 

JMP I LOPOON 

JMP I TEST 



/TEST DONE? 

/NO RETURN TO TEST 

/IS THE SIMULATOR SELECTED 

/SIMULATOR NOT SELECTED , CHECK TEST LOOP SWITCH 
/ADD A 1 TO THE CONTROL WORD? 

/NO, CHECK TEST LOOP SWITCH 

/ADD 1 TO THE CONTROL WORD FOR BAUD RATES 

/GET- THE TEST COUNT 

/RESTORE IT FOR A NEW PASS FOR A DIFFERENT BAUD 
/RETURN FOR NEW BAUD RATE 
/CHECK FOR SR2>1 

/LOOP? 

/NO, GO TO NEXT TEST 
/YES, LOOP ON THIS TEST 



1044 6102 SIMINT, SPL 



1045 7410 

1044 5777< 

1047 3251 

1053 5321 

1051 ."000 



AC. 



JMP POWFAL 
OCA AC 
JMP FLGCK5 



/SKIP ON POWEH LOW 

/POWER GOING DOWN . GO SAVE EVERYTHING 

/SAVE THE AC 

/RETURN TO THE PROGRAM 



1052 6102 

1053 7410 

1054 ■57771 

1055 3251 

1056 1042 

1057 7650 



SKPCHN, 



1063 
1061 



4776' 
6137 



1062 7410 

1063 5305 

1064 U33 
1063 7440 

1066 5300 

1067 4041 

1070 7610 

1071 5310 

1072 6031 

1073 7410 

1074 5313 

1075 6571 

1076 7410 

1077 9316 
1100 4570 
1181 7640 
1102 5317 



SPL 
SKP 

JMP POWFAL 
DCA AC 
TAD CLKFLS 
SNA CLA 
JMS CHK4CT 
CL5K 

JMP FLGCK1 
TAD ACTFLG 
SJA 

JMP ACTCK2 
TSF 

SKP CLA 
JMP FLGCK2 
KSF 
SKP 

JMP FLGCK3 
DBSK 

JMP FLGCK4 

DBST 

SiA CLA 

JMP FLGCK5.2 



/SKIP ON POWER LOW 

/POWER GOING DOWN SAVE EVERYTHING 
/SAVE THE AC 

/WERE WE EXPECTING A CLOCK INTERRUPT? 

/GO CHECK FOR THE ACT LINE 

/YES . SKIP ON REAL TIME CLOCK FLAG 

/GO CHECK THE OTHER FLAGS 

/GET THE ACT FLAG 

/DID THE PROGRAM 50 TO THE PROM t 

/YES , CHECK PARALLEL I/O DATA ACCEPTED 

/WAS IT A TRANSMIT FLAG? 

/TRANSMIT FLAG SET . CHECK THE OTHER FLAGS 
/WAS IT A RECEIVE FLAG? 

/YES . GO CHECK THE OTHER FLAGS 
/WAS THE DATA READ* FLAG SET? 

/YES . CHECK DATA ACCEPTED FLAG 

/WAS DATA ACCEPTED SET. IP SO CLEAR IT 

/YES, THE FLAG SHOULD BE CLEAR NOW 
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1103 
11511 
1135 
1106 
1107 
1110 
1111 
1112 
1113 
111* 
1115 
1116 
1117 
1120 
1121 
1122 
1123 
112* 
1125 
1126 
1127 



4427 
5317 
4041 
7410 
4427 
6031 
7410 
4427 
6571 
7410 
4427 
65781 
7610 
4427 
1133 
7240 
3041 
47751 
1130 
1251 
5730 



1133 »000 



FLGCK1, 
FLGCK2, 
FLG5K3, 
PLGCK4, 
FLOCKS, 



I'lTKET, 



ERROR 


/ILLEGAL INTERRUPT ■ 




/ Rf*T| IBM 


TSP 


/SKIP ON XMJT FLAG 


SKP 




ERROR 


/XM I T FLAG SET 


KSF 


/SKIP ON RECEIVE FLAG 


SKP 




ERROR 


/RECEIVE FLAG SET 


OBSK 


/SKIP ON P I/O DATA READY 


SKP 




ERROR 


/nATA RFADV Fi Aft SFT 


DBST 


/SKIP IN naTA ArrFPTFn 


SKP CLA 




ERROR 


/DATA ACCEPTED, FLAG SET 


HCA ACTFLG 


/CLEAR THE ACT FLAG 


CLA CHA 


OCA INTF'LG 


/SET INTERRUPT FLAG 


JMS RETURN 




INTRET 




TAD AC 




JMP I INTRET 





/ROUTINE TO UAIT FOR SERIAL LINE UNITS XMJT FLAG 



/SKIP ON SLU TRANSMIT FLAG 
/GO ADD ONE TO THE COUNTER 

/RETURN TO THE PROGRAM. GOT THE FLAG 

"AIT FOR THE SERIAL LINE UNIT RECEIVE FLAG 



1131 


:<000 


HATTSF, 




1132 


'300 


CLA 


CLL 


1133 


114? 


TAD 


K7710 


1134 


3044 


OCA 


CNTl 


1135 


3043 


OCA 


CNT 


1136 


6041 


Tsr 


1137 


4363 


JMS 


ADOTIM 


1143 


2331 


IS? 


WATTSF 


1141 


5731 


JMP 


I HATTSF 






/ROUTINE TO 


"AIT FOR TH 


1142 


'000 


HATKSF, 




1143 


7300 


CLA 


CLL 


1144 


1147 


TAD 


K7710 


1145 


3844 


OCA 


CNTl 


1146 


3043 


OCA 


CNT 


1147 


6031 


KSF 




1150 


4363 


JMS 


ADDTIM 


1151 


2342 


ISZ 


HATKSF 


1152 


5742 


JMP 


I HATKSF 






/ROUTINE TO 


«A!T FOR Th 


1153 


S000 


WTCLSK, 




1194 


7240 


C L A 


CMA 


1155 


3044 


OCA 


CNTl 


1156 


3043 


OCA 


CNT 



/SKIP OH SLU RECEIVE FLAG 
/GO ADD A ONE TO THE COUNTER 

/RETUHN TO THE PROGRAM. GOT THE FLAG 



/OKC8-AA OPTION TEST 1 MAINDECBfl-DJDKA-B-L IK PART 3 PAL10 V142A I6-JUN.7; 9104 PAGE 2.15 

1157 6137 CLSK /SKIP ON THE REAL T I ME CLOCK FLAG 

1160 4363 JMS ADOTIM /GO ADD ONE TO THE COUNTER 

1161 2353 ISZ WTCLSK 

1162 5753 JMP I WTCLSK /RETURN TO THE PROGRAM-GOT THE FLAG 

/ROUTINE TO mix FOR THE FLAG 

1163 3300 ADDTIM, 

1164 204J is? CNT 

1165 7610 SKP CLA 

1166 5044 ISZ CNTl 

1167 7346 CLA CLL CMA RTL 

1170 7001 IAC 

1171 1363 TAO ADDTIM 

1172 3363 OCA AOOTIM 

1173 5763 JMP J AOOTIM 



1175 
1176 
1177 



1220 
1344 
1241 
1200 



/THIS IS THE END OF A PRHGRA" PASS', IF SR3 = 1 HALT, (F NOT START PROGRAM OVER 



120? 
1201 
1202 
1203 
1204 
1203 
1206 



1207 
1213 
1211 
1212 
1213 
121' 
1215 
1216 
1217 



6160 
4435 
7006 
7004 
7710 
'402 
5777' 



?000 
7200 
1021 
7700 
5216 
7604 
W1 
1020 
5607 



ENDPAS, SIMCLR 
SWHCHK 
"TL 
RAL 

SPA 

HLT 
JMP 



CIA 

0203 



/CLEAR THE SIMULATOR 
/GO GET SWITCH REGISTER 



/SR3=1 END OF A COMPLETE PROGRAM PASS 
/START PROGRAM OVER 



/CHECK TO SEE IF FRONT PANEL IS AVAILARE TO DO EITHER A TAO SWITCH OR A L AS COMMAND 



CHKSWH, 

CLA 



TAO OP1SEL 

SMA CLA 

JMP .+3 
LAS 

JMP I CHKSWH 

TAO SWITCH 

JMP I CHKSWH 



/THIS ROUTINE SETS UP A RETURN ADDRESS FOR I>ITERRU»T RETJRNS FROM ANOTHER FIELD 



1222 J000 

1221 6201 

1222 1636 

1223 3237 

1224 A224 

1225 1131 



RETURN, 

CDf 

TAD I 
□ CA 
R I F 
TAD 



K0 

RETADD 



/Change data field to fie l d t 

/GET THE INTERRUPT PC 
/SAVE IT 

/REAn THE PROGRAM INSTRUCTION FIELD 
/ADD A CDF INSTRUCTION TO IT 



/0KC8.AA OPTION TEST 1 MA!NDEO08"DJOKA.B»L IK PART 3 PALI* V1«2A H-JUN-7S 



9184 PASE 2>U 



1226 3227 OCA ,*( 

1227 7402 HUT/CDF 

1230 16 20 TAD I RETURN 

1231 3240 OCA SAVLOC 

1232 '22a 'SI RETURN 

1233 1237 TAD RETADD 

1234 3640 OCA 1 SAVLOC 

1235 5620 JMP 1 RETURN 



/SAVE IT IN THE NEXT LOCATION 
/RETURN TO THE PROGRAM DATA MtLO 
/GET THE INTERRUPT RETURN COSATISN 
/SAVE IT 



1236 0000 

1237 1000 
1240 0000 



1241 7200 

1242 6201 

1243 1265 

1244 3636 

1245 1045 

1246 1666 

1247 1267 
1230 3670 

1251 1132 

1252 3671 

1253 1272 

1254 3673 

1255 6004 

1256 3674 

1257 6244 
1263 6103 

1261 6102 

1262 7610 

1263 5261 

1264 5445 



KB. 3 
RETADD, 
SAVLOC, 

/POWER FAIL ROUTINE, THE PROGRAM «!Ll °0 IT'S OWN AUTO-RESTART 
/AT THE 9EGINNING OF THE TEST THAT IT U*S EXECUTING UNLESS ALL POWER 
/WENT AWAY, THEN THE POWER FAIL AUTO. RESTART OPTION WOULD TRY TO DO 
/A RESTART IF IT WAS SELECTED 1 , 



PQWFAL i 



CL.A C|_* 
r.of 00 
TAD KJMP7 
DCA I K0 
TAD TEST 
PC* I KTEST 
TAD FLGRST 
PCA I C7 
TAD KRTp 
OCA I KtB 
TAD KJMRRT 
OCA I KH 
GTF 

OCA I K12 

PMF 

CAL 

SPL 

SK" CL» 
JMP ,.2 
UHP I TEST 



1265 5007 K JMP7 i JMP 7 

1266 1045 KTEST, TEST 

1267 1012 FLGRST, TAD 12 

1270 3007 C7, 7 

1271 ?010 K10, 10 

1272 5445 KJMPRT, JMP I TEST 

1273 1011 Kll, 11 

1274 0012 K12, 12 

/LOSIC E"ROR ROUTINE - RESTART 

1275 C000 AERROR, 

1276 4326 JHS ACTCHK 

1277 4435 SWHCHK /CHECK 
1300 7710 SPA CLA 



TEST IF SR1»1 

/CO CHECK TO SEE IF RUNNING ON ACT LINE 
SR0 TO INHIBIT ERROR HALT 



/DKC8.AA OPTION TEST i MAINDEC-08.DJDKA.SHL lK PART 3 PALl? Vl*2A 16-..N-75 



9104 
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1301 5307 

1302 7240 

1303 1275 

1304 7402 
1395 4314 

1306 7402 

1307 4435 

1310 7004 

1311 7700 

1312 5675 

1313 5446 

1314 1000 

1315 7300 

1316 1021 

1317 1057 

1320 7650 

1321 5324 

1322 1055 

1323 5714 

1324 2314 

1325 5714 



AERSWH 



SIMWRU, 



UM P AERSWH 

CLA DMA 

TAD AERROR 
«LT 

JMS S I MWRD 
HUT 

SWHCHK 
RAL 

SMA CLA 

JMP I AERROR 

JMP I TSTLOP 



CLA CLL 

TAD 0P1SEL 

»ND K200 

SNA CLA 

JMP ,+3 

TAO CC-NTWD 

JMP I SIHURO 

ISZ SIMWRO 

JMP I SIMWRO 



/SR0=1 CHECK LOOP ON L05IC ERROR 



/AC " ADDRESS WHERE ERROR WAS DETECTED 
/WAS THE SIMULATOR SELECTED 
/AC'SIMULATOR CONTROL WORD 
/CHECK SRlil TO LOOP ON ERROR 



/RETURN WITHOUT LOOPING ON TEST 

/SCOPE LOOP GO BACK TO START O p TEST SECTION 



/ROUTINE TO EXIT TO PROM O'l AN ERROR I F RUINING ON THE ACT LINE 



1326 1000 

1327 7300 
1330 1022 



ACTCuK, 



1331 
1332 
1333 
1334 
1335 
1336 
1337 
1340 
1341 
1342 

1343 



7700 
5726 
6002 
7344 
1326 
3343 
7240 
1743 
6272 
5477 



I 



CLA 
TAD 
SMA 
JMP 
IOF 

CLA CLL 
TAD 
OCA 
CLA 

TAD 1 
CIF 

JMP I 



CLL 

0P2SEL 
CLA 

ACTCHK 

CMA RAL 

ACTCHK 

F.RRPC 

CMA 

ERRPC 

70 

BAOPAS 



/GET THE HARDWARE CONTROL WORD 

/IS THE PROGRAM RUNNING ON THE ACT LINE? 

/NO, RETURN TO ERROR ROUTINE 

/TURN THE INTERRUPT OFF 



/GET THE LOCATION WHERE THE ERROR WAS DETECTED 
/CHANGE INSTRUCTION F I FLO TO FIELD 7 
/GO TO THE PROM 



ERRPC, 



1344 :<030 

1345 6137 

1346 7410 

1347 5352 
1350 ?344 



chkact 



?, 

CLSK 
SKP 
JMP 
ISH 



CLKSET 
CHKACT 



/WAS THE CLOCK FLAG SET 
/NO-RETURN TO 1 NT SERVICE ROUTINE 
/YES-CLEAR THE FLAG 
/ADD 1 TO THE INCOMING PC 



/DKCS.AA OPTISN TEST 1 MA INDEO0R.DJOK4-B.L IK PART 3 P»U! V1»2A U-JUN-75 
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1351 '574< 

1352 6136 

1353 1022 
1334 7710 

1355 5365 

1356 5350 

1357 4220 

1360 1364 

1361 1776' 

1362 6001 

1363 5764 

1364 S000 

1365 2101 

1366 5357 

1367 1132 

1370 3101 

1371 6272 
1372. 4500 

1373 7240 

1374 1133 

1375 5357 

1376 1051 

1377 Z200 
1400 



1400 3000 

1401 6007 

1402 4145 

1403 6001 

1404 6575 

1405 1051 

1406 6574 
14-07 7200 

1410 6571 

1411 4427 

1412 2041 

1413 4427 

1414 3041 

1415 6572 

1416 3052 

1417 6571 

1420 4427 

1421 6573 

1422 6001 



1423 
1424 



6570 



1423 7610 

1426 4427 

1427 2041 
1433 4427 

1431 6001 

1432 7000 



' CLKSET 



JMP 
CLCL 
TAD 
SPA 
JHP 
JMP 
JMS 
ACTRET 
TAD 
ION 
JHP 
ACTRET, B 
ONACTLi ISZ 
JMP 
TAD 
OCA 
rir 
JMS 
CLA 
DCA 
JHP 



PAGE 



I CHKACT /RETURN TO SKIP CHAIN 
/CLEAR THE CLOCK FLAG 
0P2SEL /GET THE ACT LINE BIT 
CLA /IS THE PROGRAM RUNNING ON ACT LINE 

ONACTL /YES ( CHECK FOR # OF CLOCK TICKS _ 
CHKACT+4/RETURN TO INTERRUPT ROUTINE 
RETURN /NO, RETURN TO THE PROGRAM 



AC 

I ACTRET 



/TURN THE INTERRUPT ON 
/RETURN TO THE PROGRAM 

ACTCNT /100 CLOCK TICKS YET? 
CLKSET*5/N0 RETURN TO PROGRAM 



H144 
ACTCNT 
70 

GOODPS 
CMA 

ACTFLG 



/RESET ACT TIME COUNTER 
/SAVE THE NU«BER 
/CHANGE INSTRUCTION FIELO TO 7 
/SIGNAL PROM THAT PROGRAM STILLS PAS 

/SET THE ACT LINE FLAG TO ONES 



ftgrr^u fat. > i ^t. ' ' - - - 

CLKSET*5/RETURN TO THE PROGRAM 



/ROUTINE FOR TRANSMITTING, READING AND COMPARING DATA FOR PARALLEL I/O 



DATPIO, 



CAF 

RTCENA 

ION 

RBSE 

TAD PIOXMT 

DBTD 

CLA 

OBSK 

ERROR ■ 

IS? I NTFLG 

ERROR 

DC 4 INTFLG 
DBRD 

DC* PIOREC 

nBSK 

ERROR 

DBCF 

IQN 

NOP 

OBST 

SKP CLA 

ERROR 

I SE INTFLG 

ERROR 

ION 

MQP 



/CLEAR ALL 

/SET REAL TIME CLOCK INT ENA 
/TURN THE INTERRUPT ON 
/SET PARALLEL I/O INT ENA 

/GET THE WORD To BE LOADED INTO PARALLEL I/O 
/LOAD AND TRANSMIT THE WORD 

/SKIP ON DATA READY 

/ERROR, DATA HEADY FLAG FAILED TO SET SY DBTD 
/GET PROGRAM INTERRUPT FLAG 

/PROGRAM F A I LEO TO INTERRUPT WITH INT ENA * FLAG SET 

/CLEAR PROGRAM INTERRUPT FLAG 

/READ THE 12 BIT PARALLEL I/O SUFFER 

/SAVE THE WORD READ 

/SKIP ON DATA READY FLAG 

/DRRD CLEARED DATA READY FLAG 

/CLEAR DATA READY FLAG 

/TURN INTERRUPT BACK ON 

/SHOULD INTERRUPT HERE FOR DATA ACCEPT FLAG 
/SKIP ON DATA ACCEPT 

/DATA ACCEPT FAILED TO CLEAR IN INTERRUPT ROUTINE 
/CHECK TO SEE IT IT INTERRUPTED 
/DATA ACEPT FLAG FAILED TO INTERRUPT 
/TURN THE INTERRUPT RACK ON 



/DKCfi.AA OPTION 

1433 
1434 
1435 
1436 
1437 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1453 
1451 
1452 



TEST 1 MAINJEC.0R-DJDKA-8.L IK PART 3 PALIS' VU2A 16-JUN-75 
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1041 
7640 
4427 
1051 
7041 
1052 
7640 
5600 
6007 
4145 
6001 
6572 
7640 
4427 
2200 
5600 



TAD INTFLG 
SZA CLA 
ERROR 

TAD PIOXMT 
C I A 

TAD PIOREC 
SZA CL* 
JMP I DATPIO 
CAF 

RTCENA 

ION 
DBRQ 

SZA CLA 
ERROR 

IS? DATPIO 
JMP I DATPIO 



/GET PROGRAM INTERRUPT FLAG 
/DID IT INTERRUPT? 
/PROGRAM INTERRUPTED WITHOUT DATA READY SET 
/GET THE WORD TRANSMITTED 

/GET THE WORD READ 
/ARE THEY E3UAL? 

/DATA ERROR RETURN TO REPORT ERROR 
/CLEAR ALL FLAGS AND P I/O BUFFER 

/TURN THE INTERRUPT ON 

/READ THE 12 BIT P I/O BUFFER 

/CAF FAILED TO CLEAR THE 12 BIT DATA BUFFER 
/BUMP RETURN ADDRESS POINTER BY 1 
/RETURN TO TEST 



/ROUTINE FOR TRANSMITTING, READING AND COMPARING DATA FOR SLU 



1453 

1454 

1455 

1456 

1457 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1471 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

15a? 

1501 

1502 

1503 

1504 

15**5 

1506 

1507 

1510 



'000 

6007 

4145 

6001 

3041 

1053 

6046 

4431 

4427 

2041 

4427 

6042 

6001 

4432 

4427 

2041 

1427 

6036 

3054 

6001 

1041 

7640 

4427 

1053 

7041 

1054 

7640 

5653 

2253 

^653 



CAF 




RTCENA 




ION 




OCA 


INTFLG 


TAO 


SLUXMT 


TLS 




TSFWAT 




FRPOR 




T SH 


INTFLG 


ERROR 




TCF 




ION 




KSFWAT 




ERROR 




IS? 


INTFLG 


ERROR 




KRS 




OCA 


SLUREC 


ION 




TAD 


INTFLG 


S2A 


CLA 


ERROR 




TAD 


SLUXMT 


I A 




TAD 


SLUREC 


SZA 


CL* 


JMP I 


OATSLU 


ISZ 


DATSLU 


JMP I 


DATSLU 



/CLEAR ALL FLAGS BUT SET INT ENA ON SLU 
/SET REAL TIME CLOCK INT ENA 
/TURN THE INTERRUPT ON 
/CLEAR THE PSOGHAM INTERRUPT FLAG 
/GFT THE WORD TO BE TRANSMITTED 
/LOAD AND TRANSMIT IT AND CLEAR THE FLAG 
/WAIT FOR THE TRANSMIT FLAG 
/XMIT FLAG FAILED TO SET 
/DID THE PROGRAM INTERRUPT? 
/PROGRAM FAILED TO INTERRUPT 
/CLEAR THE XMJT FLAG 
/TURN THE INTERRUPT RACK ON 
/WAIT FOR THE RECEIVE FLAG TO SET 
/RECEIVE FLAG FAILED TO SET 
/DID THE RECEIVE FLAG CAUSE A 

/receive flag Failed to cause - 
/clear the ac and rcv flag and read suffer 
/save the word read sack 
/turn the interrupt back on 
/check that krb cleared the rcv flag 

/KRB FAILtD TO CLEAR RCV FLAG OR INTERRUPTED 

/GET THE WORD TRANSMITTED 

/GET THE WOWO READ BACK 

/DATA ERROR-RETURN TO REPORT THE ERROR 
/BUMP RETURN AODRESS POINTER BY ONE 
/RETURN TO TEST 



INTERRUPT 
A INTERRUPT 



/DATA ERROR ROUTINE FOR PARALLEL I/O 
1511 ?000 DERPIO, 



/0KC8.AA OPTION TEST 1 HA I Ni)EC«08.DJDKA.B!.L IK PART 3 Ml'3,0 Vi«A 16.JUN.73 9104 PAGE 2.2S 

1512 4777< JMS ACTCMK /CHECK TO SEE !F RUNNING ON ACT LINE 

1513 4435 SWHCHK /CHECK SRI TO INHIBIT ERROR HALT 

1514 7710 SPA CLA /IS SR0 SET! 

1515 5327 JMP PIOSWH /YES, GO CHECK SRI TO LOOP ON ERROR 

1516 7240 CL» CMA 

1517 Ull TAD DERPIO 

1523 7402 HLT /AC « ADDRESS WHERE ERROR WAS DETECTED 

1521 7200 C(.A 

1922 1051 TAD PIOXHT /GET THE WORD TRANSMITTED 

1523 7402 HLT /AC = THE GOOD WORD 

1524 7200 CLA 

1525 1052 TAD PIOREC /GET THE WORD READ 

1526 7402 HLT /AO ■ THE BAD WORD • WORD READ 

1527 4435 PIOSWH, SWHCHK /LOOP ON DATA ERROR IF SR1"1 

1530 7004 RAL 

1531 7700 SMA CLA /LOOP? 

1532 5711 JMP I DERPro /NO, RETURN TO TEST 

1533 5446 JMP I TSTLOP /RETURN AND DO SAME PATTERN ( S ) 

/DATA ERROR ROUTINE FOR SERIAL LINE UNIT 

/CHECK TO SEE !F RUNNING ON T H E ACT LINE 
/CHECK SP0»1 TO INHIBIT ERROR HALT 

/GO CHECK SRlli TO LOOP ON ERROR 

/ 

/ASMDRESS WHERE ERROR WAS DETECTED 

/GET THE WORD TRANSMITTED 
/AD'GOOD WORD.THE WORD TRANSMITTED 

/GET THE WORD READ 
/AC»THE SAB WORO-THE WORD READ 
/WAS THE SIMULATOR SELECTED 
/AC'THE SIMULATOR CONTROL WORD 
/LOOP ON DATA ERROR IF SR1»1 

/LOOP? 

/NO, RETURN TO TEST 



1534 


.1000 


DERSLU, 







1535 


4777' 




JMS 


ACTCHK 


1536 


4435 




SWHCHK 




1537 


7710 




SP*. 


CLA 


1543 


5354 




JMP 


SLUSWH 


1541 


7240 




CLA 


CMA 


1942 


1334 




TAD 


DERSLU 


1543 


7402 




HLT 




1544 


7200 




CLA 




1545 


1053 




TAD 


SLUXMT 


1546 


7402 




HLT 




1947 


7200 




CLA 




1950 


1054 




TAD 


SLUREC 


1551 


7402 




«LT 




1552 


4776' 




JMS 


SIMWRD 


1553 


7402 




HLT 




1954 


4435 


SLUSWH, 


SWHCHK 




1555 


7004 




RAL 




1556 


7700 




SMA 


CLA 


1557 


5734 




JMP I 


DERSLU 


1560 


5446 




JMP I 


TSTLOP 



1561 
1562 
1563 
1564 
1565 
1366 
1367 
1570 



t>000 
1081 
3057 
7650 
5371 
1761 
3095 
7410 



CHKSIM, 



TAD OP1SEL 
AND K200 
SNA CLA 

JMP ,*4 

TAD I CHKSIM 

OCA CONTWD 
SKP 



/CHECK FOR SIMULATOR 



/NO 

/GET THE CONTKOL WORD 
/SAVE IT 



/DKCB«AA OPTION TEST 1 

1571 2361 

1572 2361 
1373 1361 
1574 3046 
1375 5761 



MAINOEC-0s-DJDKA>B-L IK PART 3 PAL10 V142A 16.JUN»75 9104 PAGE 2"21 

ISl CHKSIM 

ISC CHKSIM 

TAD CHKSIM 

OCA TSTLOP 

JMP 1 CHKSIM 



1576 1314 

1577 1326 

0230 »200 



I 



/DKC8 


•A* OPTION 


TEST 1 MAINDEC.0B. 


DJOKA-B.L, 


IK PART 3 


PAL10 


V142A 16. 


JUN.7S 


0000 
0100 


11110000 
11111111 


00000000 
11111111 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
11110000 


llllllll 
00000000 


llllllll 
00000000 


0200 
0500 


lllltlll 

iniiiil 


11111111 
11111111 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


0400 
3500 


iiimii 
liiiiiil 


llllllll 
11111111 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


0600 
0700 


liiimi 
iimiii 


llllllll 

00000000 


llllllll 

00000000 


llllllll 
00000000 


00003000 


llllllll 
00000000 


llllllll 
30000000 


llllllll 
00000000 


1003 
1100 


liiiiiil 
iimiii 


llllllll 


llllUll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
11110111 


1200 
1300 


miiiii 
miiiii 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


1400 
1300 


liiiiiil 
liiiiiil 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllil 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


1600 
1700 



















PACE 2.22 



2200 
2300 



2400 
2500 



2600 
2700 



3000 
3100 



3200 
3300 



3400 
3500 



3600 
3700 



/DKC8.AA OPTION tEst 1 M A I NOEC08.D JDK A -B-L IK P» RT 3 PAL10 V 142A 16.JuN.75 



9104 



PACE 2.23 



4000 
4100 



4200 
4300 



4400 
4500 



4600 
4700 



5000 
3100 



5200 
5300 



5400 
5500 



6100 



6200 
6300 



6400 
6500 



6603 
6700 



7000 
7100 



7200 
7300 



7400 
7500 



7600 
7700 



/DKC8.AA 0PjION T EST 1 HA I NQEC"0'.O JDKA.B.L IK PART 3 



PAL10 V142A 



16.JuN.75 



9|0« PAGE 2.24 



AC 


1091 


GOOD'S 


0100 


ACTCWK 


13*6 


GTF 


6084 


ACTCK2 


1100 


NLT 


7402 


ACTCNT 


3131 


INACTV 


0076 


ACTFLG 


?133 


1NTELG 


0041 


ACTHET 


1364 


INTRET 


1130 


APDT!'< 


1143 


K0 


1236 


AERRnR 


1275 


*1 


0134 


SEHSUM 


1387 


K10 


1271 


BADPAS 


0077 


<11 


1273 


C7 


1270 


<is 


1274 


OAF 


6007 


K125 


8361 


CAL 


6103 


K2 


8125 


CHKACT 


1344 




8857 


5HKS I M 


1541 


K252 


0060 


CHKSUH 


1287 


K2525 


8863 


CLCL 


6136 


K3 


8126 


CLKFLC 
CLKSET 


.1042 


K377 


0896 


1352 


K5252 


0062 


CLKSMC 


H134 


K7 


0064 


CLLE 


6135 


K7710 


8147 


5LRDET 


6156 


<CC 


60J2 


GLRSP 


6150 


KqOF 


0131 


CLSK 


6137 


KCF 


6030 


CLSKWT 


4425 


Kit 


6835 


CNT 


"043 


K JMP 


0127 


CNTi 


3044 


KJMP7 


1245 


CONTWO 


?055 


KJMPRT 


1272 


5 ATP 1 


1403 


KRB 


6836 


nATSLU 


1453 


KRMF 


8130 


D3CE 


6576 


KRS 


6034 


5BCF 


6573 


KRTF 


8132 


OBRO 


6572 


KSF 


6031 


BBSE 


65'5 


KSFHAT 


4432 


ngsK 


6571 


KTEST 


1266 


DBSS 


6577 


LINK 


0871 


OBST 


6570 


LOAOSM 


6151 


DBTD 


6574 


IQDFRQ 


6163 


HERP 1 


1511 


LOOSIM 


4437 


QEHSLU 


1534 


COOPPC 


4423 


noNt,op 


44 24 


LOOPSW 


1037 


ENARTC 


"1 46 


IQPPON 


1021 


t NOP AS 


1280 


M1E? 


0066 


ERROR 


4427 


M144 


0132 


ERRPC 


1343 


H4 


0065 


EXPACD 


3870 


ONACTL 


1365 


FLGCK1 


1185 


0P11K3 


0000 


FI.GCK2 


1118 


HP1SEL 


8821 


PLGCK3 


1113 


DP2SEL. 


8022 


PLGCK4 


1116 


PATCH 


8183 


FLGCK5 


1121 


PCIOOP 


1833 


PI.GRST 


1267 


PIOOAT 


4426 



F>I8'!F.K 


4430 


TfI 


6040 


PIOHEC 


0092 


TlS 


6046 


PJOSUH 


1527 


TpC 


6044 


P10X*! 


0091 


TSF 


6041 


PNOINT 


0075 


TSFWAT 


4431 


POUFAL 


1241 


TSTCNT 


0047 


PRGENO 


5440 


TSTGOD 


8135 


PECFLG 


0073 


TSTLOP 


0046 


PETAOO 


1237 


UATKSF 


1142 


RETURN 


1220 


WATTSF 


1131 


our 


6244 


UTCLSK 


1153 


RTCEMA 


4145 


XMTFIG 


0072 


STCFLG 


0074 






RTF 


6035 






SAVAOU 


0123 






SAVCNT 


0050 






SAVLOC 


1240 






SBE 


6131 






5JMCHK 


4436 






SJMCLR 


6140 






SIMCNT 


0067 






S I M I N T 


1044 






simuob 


10J4 






SIMWRB 


1314 




♦ 


SKPCMN 


1052 






SKPPAV 


6165 






SKPFRO 


6162 




i 


SKPROH 


6157 






S.KPSTR 


6167 






SLUDAT 


4453 






SLUOER 


4434 






SUURES 


3054 






SUJS'JH 


1554 






S1.UXMT 


3853 






SP! 


6845 






SPL 


6102 






•5TRFRU 


6161 








4435 






SWITCH 


0030 






TCF 


6842 






TEST 


0045 






TESTJV 


0201 






TEST30 


1290 






TEST31 


3302 






TEST32 


8425 






TEST33 


3437 






TE3T34 


3452 






TEST35 


8470 






TEST36 


3507 






TEST37 


3527 






TEST3B 


8604 






TEST3V 


3654 







/DKC8.AA OPTION TEST 1 MAINQEC08.DJOKA-B.L. IK pART 3 oAU8 V142A 16.Jy N .7S 9184 PAGE 2.25 

ERRORS 1ETECTEDI 
LINKS GMERATEDI 9 
RUN.TIHEI 17 SECONDS 
2K CORE U S ED 



/QKCS.BA OPTION TEST 1 MAINDEC.Be.DJDKA.B.L IK PART 4 PAH"! V142A 16.JUN.73 9 1 B6 PAGE 1 

/DKC5-8A OPTION TEST 1 M A I 'JDE C -t)8 -0 JDK A-B -i. IK PART 4 

,' 

/COPYRIGHT (CI 1974, 1975 DIGITAL EQUIPMENT cOHPORATION 
/ 

/PROGRAMMER 1 BRUCE HANSEN 
/ 



///////////////////////////////////////////////////////////////////////// 
/THE FOLLOWING LISTING WILL c QBR|;SPtlH TO T Hr PAPe r TAPE LABELED 
/MAINDEC-08-DJDKA.B-PM4, IK VERSION PART 4', THIS PAPER TAPE AND 
/LISTING WILL SE THE LAST OF FOUR IK SEGMENTED PAPER TAPES AND 
/LISTINGS FOR COMPUTERS WITH LESS THAN 4K OF MEMORY, 

///////////////////////////////////////////////////////////////////////// 



/DKCBsBA OPTION TEST 1 MA INaEC"f> 5 «0JOKA-B-L IK PART 4 PALI* V142 A 16" 9106 PAGE 

/DKCB-AA OPTION TEST 1 MAINDEC.08.OJDKA-B.L IK PART 4 

/COPYRIGHT (C) 1974, 1975 HGITAL EQUIPMENT CORPORATION 
/ 

/PROGRAMMER! BRUCE HANSEN 
/ 



/PROCESSOR INSTRUCTIONS 

6007 CAF=6307 

6132 5t>L = 6102 

6133 CAL»4t03 
6101 SBE»6101 
7402 MLT=7422 
6244 RMF»624« 
6005 RTF«6305 
6004 GTF=6304 

/OPTION BOARD NUMBER 1 JOT'S 



/CLEAR ALL FLAGS 
/SKI ON AC LOW TLJP.FLOP 
/CLEAR AC LOW FLIP. FLOP 
/SKIP ON BATTERY EMPTY 

/RESTORE MEMORY FIELD 



6033 
6031 
6032 
6034 
6035 

6336 



6042 
6041 
6042 
6044 
6J45 
6046 



//SERIAL LINE UNIT 
/RECEIVER IOTS 
KcF=6032 
<SF»6S31 
KCCa.6332 
KRS=6334 
KIE=6335 

KRB*6336 

/TRANSMIT IOTS 

TFL=6040 
TSF=6341 
TCP=6J42 
TPC=6344 
SPl=4345 
TLS»6B46 

/REAL TPE CRYSTAL CLOCK 



/CLEAR RECEIVE FLAB, DON'T SET READER RUN 
/SKIP ON RECEIVE FLAG 

/CLEAR RECEIVE FLAG AND AC, SET READER RUN 
/READ RECEIVE DUFFER 
/AC 11>1 SET INTERRUPT ENABLE 
/AC 11 = CLEAR INTERRUPT ENAUE 

/CLEAR RECEIVE FLAG ANn AC, SET READER RUN AND READ 
/RECEIVE BUFFER 



/SET TRANSMIT FLAG 
/SKIP IN TRANSMIT PLAG 
/CLEAR THE TRANSMIT FLAG 
/LOAD TRANSMIT BUFFER AND TRANSMIT 

/SKIP IF TRANSMIT OR RECEIVE FLAS SET AND INT ENA SET TO A 1 
/LOAD TRANSMIT BUFFER, TRANSMIT AND CLEAR TRANSMIT FLAf. 



6135 CLL£»6135 

6136 CLCL=613S 

6137 CLSK=61j7 

/12 BIT PARALLEL I/O 

657a - is - *!,-;" 

6571 r)BSK = 6571 

6572 D9RD56572 

6573 0BCFa6973 

6574 DBT0=6574 

6575 DaSE=6575 
65'6 DBCE»6576 



/AC 11=1 SET INTERRUPT ENABLE 

/ac ii»a clear interrupt enable 

/CLEAR CLOCK FLAG 
/SKIP ON CLOCK FLAS 



/SKIP ON DATA ACCEPTED, CLEAR DATA ACCEPTED AND DATA AVAILABLE 
/SKIP ON QATA ReAqY FLAG 
/ RE AO DATA INTO AC 0-11 

/CLEAR DATA READY FLAG, ISSUE 5ATA ACCEPTED OUT 
/LOAD AC 0.11 INTO BUFFER AND TRANSMIT DATA OUT 
/SET INTERRUPT ENABLE TO A 1 
/SET INTF.RRUPT ENABLE TO A 



« I a 6 "AGE 2>i 



/DKC8.BA OPTION TEST l MAINDEQ^S-njOK'-B^l, t K PART 4 »»Ll« Vi«A 16.JUN-7J 
6577 0BSS.6577 /ISSUE A STROBE PULSE 

/switch res i step) settings 

/sru.i • INHIBIT ERROR halt 
/SR1«1 • LOOP ON ERROR 
/SR2«1 • LOOP ON TEST 

/SRJil • HALT AT COMPLETION OF A PROGRAM PASS 

/OPTION "OARO 1 SIMULATOR SOT'S 

41,50 CLRSIM«615H /CLEAR SIMULATOR CONTROL REGISTERS 

6191 LOADSH.6151 /LOAD SIMULATOR CONTROL WORD 1 

6196 CLRDET.6156 /CLEAR READER RUN, STROBE, AND DATA AVAILABLE CATCHER P/F<S 

6137 SKPR5R.6157 /SKIP ON READER RUN CATCHER F/F SET 

6160 S1MCLR»S16" /CLEAR CONTROL REGISTERS AND MOST OF LOGIC ON S I MUALTQR 

6161 STRFR'jmSl /START FREQUENCY CHECK (SLU OR RTCI 

6162 S«PFRU»616S /SKIP ON FREQUENCY CHECK IN PROGRESS 

6163 LOOFRa»6163 /READ FREQUENCY COUNT INTO AC 

6165 SKPDAV>6165 /SKIP ON DATA AVAILABLE CATLwE' f/P SET 

6167 SKPSTR-6167 /SKIP ON STROBE CATCHER F/F SET 

OPTION BOARD 1 SIMULATOR CONTROL «ORU 81 T ASSIGNMENTS 
BIT 3 COUNTER RESET INACTIVATE 

F'NO ACTION 



BIT 1 

BIT 2 

BIT 3 

BIT 4 

BIT 5 

BIT 6 
BIT 7 
BIT a 

SIT 9 
BIT 12 

BIT U 



PARALLEL I/O CLEAR B»T* 
AVAILABLE SELECT 

NOT USED 

NOT USED 

NOT USED 

RTC FREQUENCY OR 
SLU FREQUENCY CHECK 

REAL TIME CLOCK 

SLU EIA/20MA SELECT 

STOP BIT SELECT 

BAUD RATE SELECT 
BAUD RATE SELECT 

BAUD RATE SELECT 



1'TSl 

0.DATA ACCEPTED IN 



1»RTC 

0sSLU BAUD RATES 



l = OFr 
0»ON 



1PEIA RECEIVE DATA 
3.20 MA RECEIVE DATA 



lit STOP BITS 
»SS STOP BIT 



BIT 9, 10, 11 ALL 0'S 
EQUALS 110 BAUD, EACH 



INCREASING BIT SELECTS 
NEXT HIGHEST BAUD RATE', 



/DKC8"8A OPTION TEST 1 MA INOEC-09-OJDKA.9-L IK PART 4 PAL13 V142A 16-JUN.75 



9|06 



0003 
0001 
0002 
0303 



'302 
6244 
5403 
-444 

f'022 



302 /PROGRAM REVISION ' ETTER.M*IND£C.08.DJDKA.B 

°MF /RESTORE MEMORY FIELDS 

JHP I 3 /RETURN TO INTERRUPT SERVICE ROUTINE 

SIMINT/SKPCHN/SIMCHK/RTCINT/SLUINT /INTERRUPT SERVICE ROUTINES 



0021 5000 



-»ISC_, 2000 



0022 



0023 
0024 



0025 



0027 



0831 
0332 



0033 



0036 



i'000 
4423 
r»430 
4424 
1-4 21 
4425 
553 
4426 
3026 1000 
4427 
<?6?5 
4430 
3030 1111 
4431 
0531 
4432 
"542 
4433 
1093 
4434 
3034 1134 
4435 
0035 S607 
4436 
1161 
4437 
0037 0414 
4146 



0P2SEL, 

LOOPPC=J«S 

DONLOP=JMS 

CLSKWT'JMS 

PIODAT5JMS 

ERRQB.JMS I 

"JODER'JMS 

TSF«AT=JMS 

<5FHAT=JMS 

SLUDAT=JMS 

SLUDER. JMS 

SHHCHK=JMS 

S1MCHK.JMS 

LODSIM'JMS 

RTCENA'JMS 



I , 

PCLOOP 
I , 

LOPDQ'l 
I i 

WTCLSK 
I , 

DATPJO 

A ERROR 
I , 

OERPIO 
I, 

WATTSF 
I i 

HATKSF 
1 , 

OATSLU 
I , 

DERSLU 
I i 

CHKSWH 
I , 

CHKSIM 
I , 

SIMLOD 
ENARTC 



/BIT 

/BIT 

/BIT 

/BIT 

/BIT 

/BIT 

/BIT 

/BIT 

/BIT 

/SliE 

/ONE 

/BIT 



010 USE LOCATION 2J AS A PSEUDO SWITCH REGISTER 

0.1 USE HARDWARE FRONT PANEL SWITCH REGISTER 

111 WAS OPTION 1 

2»l HAS OPTION 2 

3(1 HAS 8A C»U SIMULATOR 

4«1 WAS 8A OPTION 1*2 SIMULATOR 

5«1 PROGRAM ON PBP.8A XOR|REQU!RES BIT 4 SET ALSO 5 

6.1 HAS P0P-8E TYPE CPU 

7.11 MEMORY SUE . S'S»1K, 37=32K, MEMORY 

CAN BE INCREASED IN IK INCREMENTS BY ADDING 
TO THE NUMBER IN BITS 7 » U 

IS SET FQR THE ACT LINE 



/DkCS.BA OPTION TEST 1 mAINOEC>0S.OJOkA.B.|; Ik PART 4 PA|.1B V142A 16.JUM.75 



BASE 2.3 



544BI 
0043 51630 



PRGENO«J«P 1 , 

ENDPAS 







/LOCATIONS US 


0041 


0000 


IN 7 r L G i 




0042 


0000 


CLKFLG i 





0043 


0000 


CNTi 




0044 


0030 


C'jTl, 





0045 


0000 


TEST i 




0046 


?000 


TSTLOP t 




0047 


3000 


TSTCNTi 




0050 


0000 


S A V C H T i 





0051 


.1000 


PIOXMTi 





0052 


3800 


f I OSES i 





0053 


0000 


SI.UXMT, 


a 


0054 


0000 


SLURECi 





0055 


3030 


CONTWPi 





0056 


[■377 


K 3 7 7 , 


377 


0037 


?200 


K20H, 


200 


0063 


'252 


K252, 


252 


0061 


F125 


K125, 


125 


0062 


5252 ■ 


K5252, 


5252 


0063 


2525 


K2525, 


2525 


0064 


s'007 


K7, 


7 


0065 


7774 


H4, 


-4 


0066 


7770 


H10, 


-10 


0067 


-^000 


SI«Ct!T, 





0070 


1360 


TELAYHi 


OEL*7 


0071 


1 003 


ExPACOi 





0372 


0300 ' 


LINK, 




0073 


U000 


xmtflg, 





0074 


:?000 


RECFLG, 





0075 


J003 


PTCPLG, 





0076 


:'300 


P'JOl'IT, 




0077 


P000 


I NACTV , 




0100 


6520 


BADPAS, 


6520 


0131 


6530 


500JP3, 


6500 


0102 


7634 


ACTCNT, 


-144 


0103 


7634 


"144, 


• 14A 



/ACT LINE ERROR RETURN TO FIELD 7 
/ACT LINE GOOD RETURN TO FIELD 7 



/ROUTINE TO SETUP FIELD TO HANDLE INTERRUPTS FROM JNOTHER FIELD 



0104 
0105 
0106 
0107 
0110 
0111 
0112 
0113 
0114 



?»0i 
1504 
3124 
6201 
1131 
3525 
1130 
3526 
1124 



PATOHi 





TAD 


[ PATCH 


/SET 


THE INTERRUPT SERVICE ADDRESS 


DCA 


SAVADO 


/SAVE 


INTERRUPT ADDRESS 


CDF 




/CHA> 


GE DATA FIELD TO FIELD I 


TAD 


KRMF 


/GET 


THE INSTRUCTION RMF 


DCA : 


: Kl 


/PUT 


IT IN LOCATION l OF FIELD 


TAD 


KJMP 


/GET 


THE INSTRUCTION JMP I 3 


nc* : 


K2 


/PUT 


IT IN LOCATION 2 OF FIELD 3 


TAD 


SAVADD 


/GET 


THE INTERRUPT SERVICE ADDRESS 



~1 



OPTION 


TEST l 


MA I NDEC 


•ea.DJDKA-S.L lK PART 4 


PAH^ Vi42A 16-JUN.79 


9 t 36 


0115 


3527 




DCA 


I K3 


/PUT IT IN LOCATION 3 IF FIELD 




0116 


6224 




R I F 




/GET THE PROGRAM FIELD INTO THE 


AC 


0117 


1132 




TAD 


KCOF 


/AND IT TO THE CDF INSTRUCTION 




0120 


3121 




OCA 


■ *t 


/PUT IT IN THE NEXT LOCATION 




0121 


7402 




HLT/CDF 


/EXECUTE IT 




0122 


?104 




IS? 


PATCH 


/ADD 1 TO THE ENTRANCE 




3123 


5504 




JMP 


I PATCH 


/RETURN 




0124 


(■300 


5AVADD 


i 








0125 


'001 


«li 


3 








0126 


C032 


K2, 


2 








0127 


:'003 


<3, 


3 








013? 


!M03 


KJMP. 


JMP 


I 3 






0131 


6244 


KRMF, 


6244 








0132 


6231 


KCOF, 


CDF 








0133 


6305 


KRTF, 


RTF 








0134 


,"000 


ACTFLG 










0135 


£000 


CLKS'JC 


! 












/ 

/THIS 


ROUTINE USco WHEN RUNNING 


ON THE ACT LINE TO SIGNIFY THAT 


NO 






/ERRORS HAVE 


BEEN ENCOUNTERED 






0136 


0000 


TSTGOD 


, pi 








0137 


1022 




TAD 


0P2SEL 


/GET THE HARDWARE F U »G 




0140 


7700 




SMA 


CLA 


/ARE WE ON THE ACT LINE? 




0141 


■S536 




JMP 


I TSTGOD 


/Nc, RETURN TO "HE °R CGR AM 




0142 


6002 




IOF 




/TURN THE INTERRUPT OFF 




0143 


6272 




CJF 


70 


/CHANGE THE INSTRUCTION TO FIELC 


7 


0144 


4501 




JMS 


I GOODPS 


/GO TO PROM 




0145 


5536 




JMP 


I TSTGOD 


/RETURN TO THE PROGRAM 




0146 


T030 


ENARTC 


, 








0147 


1022 




TAO 


0P2SEL 


/CHECK TD SEE IF ON ACT LINE 




0153 


7710 


K7710, 


SPA 


CLA 


/IF NOT CLEAR RTC INT r N » 




0151 


7331 




CLA 


CLL IAC 


/SET AC R I T 11 




0152 


6135 




CLLE 




/LOAD BIT 11 INTO CLOCK [NT ENA 




3153 


7230 




CLA 








0154 


5546 




JMP 


I ENARTC 








0200 


• 200 














IFOEF 


0P13K 


<PAGE> 










IFDEF 


0P13K 


<PAGE> 










IFDEF 


0P13K 


<PAGE> 







PAGE 2.4 



/THIS TEST IS EN T ERED WHEN SIMULATOR IS SELECTED, 
/TEST 43 . USES THE SIMULATOR TO TEST THE RTC FREQUENCY, 



/DKCS.BA OPTION TEST 1 MA I NOCC.0H.OJOKA.n-l IK PART 4 PAL10 16.JUN.7Sf 



?(96 PAGE 2.8 



0200 


6160 




SIMCLR 




0201 


1021 




TAO 


OPtSEL 


0202 


!"057 




A NO 


K200 


0203 


7650 




SNA 


OLA 


0204 


5331 




JMP 


TEST42 


02(55 


4423 


T£3T40| 


LOOPPC 




0206 


7777 




-1 




0207 


4104 




JHS 


PATCH 


0213 


,'452 




SKPCHN 




"211 


3042 




no* 


CLKFLG 


0212 


4436 




SJWCHK 




0213 


4100 




4100 




0214 


4437 




LQOSIM 




0215 


1377 




TAD 


( .20 


0216 


3043 




OCA 


CNT 


0217 


6007 




CAP 




0220 


4146 




RTCF.NA 




0221 


6001 




ION 




0222 


6161 




STRFRQ 




0223 


6162 




SKPFRQ 




0224 


7610 




SKP 


CLA 


3227* 


^223 




JMP 


,'2 


0226 


6163 




LOOFBQ 




0227 


3250 




OCA 


FROCNT 


0230 


1251 




TAO 


RTCFRQ 


0231 


1250 




TAD 


FRQCNT 


0232 


7450 




SNA 




0233 


5246 




JMP 


RTIMOK 


0234 


7001 




I AC 




0235 


7450 




SNA 




0236 


5246 




JMP 


RTIMOK 


0237 


2043 




ISZ 


CNT 


0240 


S234 




JM° 


. "4 


0241 


4427 




ERRO« 




0242 


4435 




SWHCHK 




0243 


7004 




RAL 




0244 


7710 




SPA 


CLA 


0Z45 


5446 




JMP I 


TSTLOP 


0246 


4424 


RT1M0K, 


DONUOP 




0247 


5252 




JHP 


TEST41 


02-50 


3030 


FRQCNT, 







0251 


3062 


RTCFRQ, 


.4716 





/GET HARDWARE CONFIGURATION 
/MASK OUT SIMULATOR BJT 
/IS IT SELECTED , 
/NO t 00 INTERACTION TEST 

/SETUP TEST COUNT AND TEST LOOP ADDRESS 
/SIMULATOR ITERATION COUNTER 
/SETUP INTERRUPT SKIP CHAIN 

/SET INTERRUPT TO IGNORE RTC 
/CHECK FOR SIMULATOR 
/CONTROL WORD FOR THE SIMULATOR 
/LOAD THE SIMULATOR CONTROL WORD 



/CLEAN ALL 

/SET REAL TIME CLOCK INT ENA 

/TURN THE INTERRUPT ON 

/START A FREQUENCY COUNT 

/SKIP ON FREQUENCY COUNT IN PROGRESS 

/FREQUENCY COUNT ENDED 50 READ IT 

/WAIT FOR A FREQUENCY COUNT ENDED 

/LOAD THE FREQUENCY COUNT IN TO THE AC 

/SAVE THE FREQUENCY COUNT READ 

/GET THE NEGATIVE VALUE OF MAX TOLERANCE 

/GET THE COUNT READ 

/ARE THEY EQUAL ? 

/YES. CHECK FDR LOOP ON TEST 

/ADO I TO THE NUMBER 

/ARE THEY EQUAL T 

/YES. CHECK FOR LOO' ON TEST 

/GO BACK FOR NEXT ALLOWED NUMBER 
/RTC TIMIN8 ERROR PRESS "OONT" FOR 
/SIMULATOR CONTROL WORD 
/CHECK SRI TO LOOP ON ERROR 
/PUT IT IN BIT 

/REPEAT TEST 

/DONE OR REPEAT TEST IF 5R2U 
/GO TO NEXT TEST 



/HTC FREQUENCY COUNT 2500 * OR . 10 



/THIS TEST IS ENTERED WHEN SIMULATOR IS SELECTED, 
/TEST 41 . USES THE SIMULATOR TO CHECK THE TIMING OF THE SERIAL LINE UNIT 
/FROM 110 3AUD TO 9600 BAUD USING THE 20MA CURRENT LOOP 



0252 


4423 


TEST41, 


LOOPPC 




/SETUP TEST COUNT AND TEST LOOP ADDRESS 


OPTION 


TEST 1 


MAIMPEC- 


0S-OJDKA 


-B-L IK PART 4 


PALlf V14 2 A 16-JJN.73 9 1 06 


0253 


7740 




.40 




/SIMULATOR ITERATION COUNTER 


0254 


4436 




SJMCHK 




/CHECK FOR THE SIMULATOR 


0255 


4000 




4000 




/SIMULATOR CONTROL WORD 


0256 


4437 




LOOSIM 




/LOAD THE SIMULATOR CONTROL WORD 


0257 


1377 




TAO 


[-20 




0260 


3043 




OCA 


CNT 




0261 


6007 




CAF 




/CLEAR ALL FLAGS 


0262 


4146 




RTCE-'A 




/SET REAL TIMME CLOCK INT ENA 


0263 


6035 




KIE 




/CLEAR SLU INTERRUPT ENABLE 


0264 


60ni 




ION 




/TURN THE INTERRUPT ON 


0265 


6161 




STRFRQ 




/START A FREQUENCY COUNT 


0266 


6162 




SKPFRQ 




/SKIP ON FRQUENCY COUNT IN PROGRESS 


0267 


7610 




SKP 


CLA 


/FREQUENCY COUNT ENDED GO READ IT 


0270 


■5266 




JMP 


,'2 


/WAIT FOR FREQUENCY COUNT ENDED 


0271 


6163 




LOOFRQ 




/LOAD FREQUENCY COUNT INTO AC 


0272 


3250 




OCA 


FRQCNT 


/SAVE THE WORD READ 


0273 


1055 




TAO 


CONTWD 


/GET THE CONTROL WORD 


0274 


•"064 




AND 


K7 


/MASK OUT THE RAJD RATE 


0275 


1376 




TAD 


(FR3TAB 


/GET THE ADDRESS OF FREQUENCY TABLE 


0276 


3300 




DCA 


TABFRQ 


/SAVE THE ADDRESS 


0277 


7410 




SKP 






0300 


7402 


TABFRQ, 


HLT 




/POINTER ADDRESS TO FREQUENCY TABLE 


0301 


1700 


TAD I 


TA9FR3 


/GET THE NEG MAXIMUM FRE5UENCY COUNT 


03?2 


1250 




TAD 


FRQCNT 


/GET THE COUNT READ 


0"j!"3 


7450 




SNA 




/ARE THE T EQUAL 


0304 


■5317 




JMP 


SLUTOK 


/YES, SLU TJMIMG IS OK 


0305 


7001 




IAC 




/ADD ONE TD THE NUMBER 


0306 


7450 




SNA 




/ARE THEY EQUAL? 


0307 


■5317 




.IMP 


SLUTOK 


/YES SLU TIMING IS 0< 


0310 


?043 




IS? 


C'lT 


/SUMP SLU TIMING CHECK COUNTER 


0311 


5305 




JMP 


i "4 


/RETURN TO ADD A 1 TO THE NUMBER 


0312 


4427 




ERROR 




/SLU TIMING ERROR. PRESS "CONTINUE" FOR 










/SIMULATOR CONTROL WORD 


0313 


4435 




SWHCHK 




/CHECK FOR LOOP ON ERROR 


0314 


7034 




RAL 






0315 


7710 




SPA 


CLA 


/LOOP? 


0316 


1446 




JMP I 


TSTLOP 


/YFS UO SAME BAUD RATE 


0317 


1424 


SLUTDK, 


DQNLQP 




/DONE OR REPEAT TEST IF SR2=1 


032' 


5331 




JMR 


TEST 42 


/GO DO THE INTERACTION TEST 



■=AGE 2-6 



/FREQUENCY COUNT TABLE FOR SLU SIMULATOR TIMING TEST (MAXIMUM COUNTS) 



0321 


2335 


FRQTAB, -5443 


/110 


BAUD 




2841 


* 


OR 




10 


0322 


3723 


-4055 


/150 


BAUD 


s 


2083 


* 


OR 




10 


0323 


3723 


-4055 


/300 


BAUD 


a 


2085 


* 


OS 




J » 


0324 


3723 


-40S5 


/600 


BAUD 




2083 




OR 




; 


0325 


"i744 


-2034 


/1S00 


BAUD 


* 


1042 


+ 


OR 




10 


0326 


6735 


-1023 


/240? 


BAUD 




0521 


* 


OR 




10 


0327 


7362 


-041ft 


Z4803 


BAUD 


* 


0262 




OR 




10 


0330 


7564 


-0214 


/960SI 


baud 




0130 


* 


OR 




10 



/DKC8.BA QPTjON TEST 1 M*I'JBEC.B?-OjDK»-B't IK P»RT 4 PAlIS V142A 16-JUN-7) 



9 IBS P»6E 2.7 



/Test 42 • js an interaction test, the test checks that The RTs. the 

/SLU AND THE 12 BIT PARALLEL I/O CAN HUN TOGETHER, THE AS AND LINK 
/IS LOADED WITH SOME RANDOM DATA BEFOHE THE INTERRUPT IS TURNED ON, 
/THE PROGRAM CHECKS THAT THE AC ANA LINK DON'T CHANGE jnO THAT DATA 
/CAN BE TRANSMITTED AND READ BACK CORHECTLYi 

/##«(»#*«»»###*««#*«*##*####•#»########•»#«#•*•«##»«•####»#**•###*•*»#*• 

/SETUP TEST COUNT AND SCOPE LOOPING ADORESS 
/SIMULATOR ITERATION COUNTER 
/CHECK TO SEE IT SIMULATOR IS SELECTED 
/CONTROL WORD FOR THE SIMULATOR 
/LOAD SIMULATOR IF SELECTED ALSO SET SCOPE 
/LOOP = THIS ADORESS If SIMULATOR SELECTED 
/OTHERWISE SCOPE LOO= IS THIS ADDRESS *1 
/TURN THE INTERRUPT OFF 
/DELAY FOR APPRO* I MATELT 2MMS TO 
/ALLOW FLAGS TO SETTLE 
/CLEAR ALL FLAGS BUT SET SLU INT ENA 
/SET HEAL TIME CLOCK I NT ENA 
/SETUP INTERRUPT SERVICE 

/CLEAH THE EXPECTED AC DATA 
/CLEAH THE LINK HIT 
/SET INITIAL AC DATA TO I 
/SET PIC INITIAL DATA TO 

/SET SLU XMT FLAG TO INACTIVE 

/SET SLU ROV FLAS TO INACTIVE 

/SET HTC FLAG TO INACTIVE 

/SETUP A COUNT FOR NO INT'S ON P I/O 
/SET DEVICE INACTIVE COUNTER TO .40 

/ 

/SETUP TEST COUNT 
/SAVE IT 

/SET DATA BIT 11 
/SET HTC INT ENA 

/SET 12 SIT PARALLEL I/O I NT ENA 
/LOAD AND TRANSMIT ON SLU 
/TRANSMIT ALL ?'! ON P I/O 
/TURN THE INTERRUPT ON 
/GO BABY GO! i || 



0331 


4423 


T£ST42» 


LQOP p C 




0332 


7777 








0333 


4436 




T Up LIU 






4017 




4 017 




0333 


4437 




1 n S 1 M 




0336 


6032 




I OF 




0337 


4470 




JM5 I 


DELAYR 


0343 


6007 




CAT 




0341 


4146 




, r tcena 




0342 


4104 




JMS 


PATCH 


0343 


1400 




INTSKp 




0344 


"?07l 




PC* 


EXPACD 


3345 


3072 




DCA 


LINK 


0346 


3053 




DQ A 


SLUXMT 


0347 


3051 




DCA 


PIOXMT 


0353 


7240 




C L A 


CMA 


0331 


3073 




DC A 


XMTFLG 


033 2 


7240 




"L A 


CMA 


0353 


3074 




9CA 


RECFLG 


0334 


7240 




TLA 


CMA 


0355 


3075 






RTCFLG 


0356 


1066 




TAD 


MM 


0357 


3076 




HQ A 


PUfl T MY 


036? 


1374 




TAD 


M40 


0361 


3077 




nCA 


INACTV 


0362 


■»352 




CLA DLL 


CMA RTR 


0363 


■"'5-7 




oca 


TSTCNT 


0364 


7331 




cla CLL 


IAC 


0365 


n3& 




CLLE 




0366 


7230 




CLA 




0367 


4575 




nBSE 




0373 


4046 




TLS 




0371 


6574 




ngTD 




3372 


6001 




ION 




0373 


5373 




JMP 




0374 


7740 


M40, 


-4a 





0376 -321 

0377 7763 



/DKCO.BA OPTION TEST 1 MA I N0ECS9.0JDKA-B-L IK PART 4 
T480 PAGE 



PAL10 V142A 16.JUN.73 



/ROUTINE TO SETUP * CF PaSSES/TEST a m U TD STORE THE RETURN ADORESS FOR SCOPE LOOPING 



040C C000 

0431 7340 

0402 J200 

0403 3045 

0404 1650 

0405 3067 
04?6 7240 
0407 3050 
0415 1B50 
0411 3047 
11412 2200 

0413 5600 

0414 -1000 

0415 1055 
3416 6151 
0417 7300 
0423 5614 

0421 "000 

0422 H047 

0423 5446 

0424 1021 

0425 1057 

0426 7650 

0427 5237 
0433 2067 

0431 7610 

0432 5237 

0433 2055 

0434 1050 

0435 3047 

0436 S446 

0437 4435 

0440 7036 

0441 7700 

0442 5621 

0443 5445 



PCLOOP, 



CLA CLL CMA 

TAD PCLOOP 

DCA TEST 

TAD I PCLOOP 

OCA SJMCNT 

CLA CMA 

DCA SAVCNT 

TAO SAVCNT 

hca TSTCNT 

IS? PCLOOP 

JMP I PCLOOP 



SIMLOOi * 



TAO CoNTWD 

LOADSM 

CLA CLL 

JMP I SIMLOD 



LOPJONi 



LOGe>SW, 



ISZ TSTCNT 
JMP I TSTLOP 
TAD 0P1SEL 
AND K200 
SNA CLA 
JMP LOOPSW 
ISZ SIMCNT 
SKP CLA 
JMP LOOPSW 
IS? CONTWD 
TAD SAVCNT 
HCA TSTCNT 
JMP I TSTLOP 
SWHCHK 
RTL 

SMA CLA 

JMP I LOPOON 

JMP I TEST 



/get The control word 

/load the simulator control word 



/TEST OO'iE? 

/NO RETURN TD TEST 

/IS THE SIMULATOR SELECTED 



/SIMULATOR NOT SELECTED , CHECK TEST LOOP SWITCH 
/ADO A 1 TO THE CONTROL WORD? 

/NO, CHECK TEST LOOP SWITCH 

/ADO 1 TO THE CONTROL WORD FOR BAUD RATES 

/GET THE TEST COUNT 

/RESTORE IT FOR A NEW PASS FOR A DIFFERENT BAUD 
/RETURN FOR NEW RAUD RATE 
/CHECK FOR SR2 = l 

/LOOP? 

/NO.GO TD NEXT TEST 
/YES, LOO" ON THIS TEST 



0444 6102 

0445 7410 

0446 5777' 

0447 3251 
345? 5321 



SIMINT, 



SPL 

SKP 

JMP POWFAL 

DCA AC 

JMP FLGCK5 



/SKIP ON POWER LOW 



/POWER GOING DOWN 
/SAVE THE AC 
/RETURN TO THE PROGRAM 



GO SAVE EVERYTHING 



/DKCB.BA OPTION TEST 1 NAINOCQilS.PjDKA.g.t IK PART 4 PAH0 VJ42A 16.JJN.7J 
1)451 F000 ACi ' 
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CP! 


/quip nu Pnuru i nu 


0453 


7410 




5KP 




0494 


5777 ' 




imp p n w %' h 1 


/POWER GOING DOWN SAVE EVERYTHING 


0455 


5251 




DC* *C 


/ a A Y t. int. AW 


0456 








/HAUL. WL &*r£.VMi r, W A W t, U G f\ iNft.r(*ljrT7 


0457 


7650 




swa rt & 


0460 


4 776* 




rue rUKAi*"? 


y r ri nurri/ pnc fur at? i tut 


0461 


6137 






>vf5 _ 5i/(B nM bfai ttmf n n"k fi'aR 
nts » a * i r <jn h e. al, i"t v u w u K r law 


0462 






SKP 






^305 






/I) □ l/Mr-U" int. UIML" f WAUS 


0464 






TAH AfTF! fl 


j fir j tut Af"T ar 




7440 






/ U I u i^t r* h u u n a n i*y ! u i Ht r * u ~ 7 


0466 






IMP A I" 1 T f K 9 


> v ■> c hul**k oiuti 1 n ? / n niTs a frrefru 

/ T E« f lint.Cr\ rAnALUtW I/O AUOtPTtO 


0467 






TCP 


/HAa IT A T M A N 3 1"! I T PI, AG/ 


0470 


7610 






047J 


5310 




IMP n Rrk') 


/liiANaniT F U A 1* SLl ■ U H L C K ! H L UTHLn FLAGS 


0472 


6031 




KSF 


/WAS IT A RECEIVE FLAG? 


0473 


7410 




SKP 




0474 


5313 




JMP FL.GCK3 


/YES « GO CHECK THE OTHER FLAGS 


0475 


6571 




OBSK 


/WAS THE DATA READY FLAG SET? 


0476 


7410 




SKP 




0477 


5316 




JMP FL.GCK4 


/YES - CHECK DATA ACCEPTED FLAG 


0300 


6570 


ACTCK2, 


DBST 


/WAS DATA ACCEPTED SET. IF SO CLEAR IT 


0501 


7640 




S2A CL.A 




0302 


5317 




JMP F|_GCK5«2 


/YES 1 THE FLAG SHOULD BE CLEAR NQW 


0503 


4427 




ERROR 


/ILLEGAL INTERRUPT > 


0504 


9317 




JMP FLGCK5.2 


/RETURN 


0505 


6041 


FLGCKli 


TSF 


/SKIP ON XMJT FLAG 


0506 


7410 




SKP 




0507 


4427 




ERPQf 


/XMIT FLAG SET 


0510 


6031 


FL.GCK2| 


KSF 


/SKIP ON RECEIVE FLAG 


0511 


7410 




SKP 




0512 


4427 




ERRQR 


/RECEIVE FLAG SET 


0513 


6571 


rLGCK3| 


OBSK 


/SKIP ON P I/O DATA READY 


0514 


7410 




SKP 


0515 


4427 




ERROR 


/DATA READY FLAG SET 


0516 


6570 


FL&CK4, 


DBST 


/SKIP ON DATA ACCEPTED 


0517 


'610 




SK" CUA 




0520 


4427 




ERROR 


/DATA ACCEPTED FLAG SET 


0521 


3134 


FLGCK5, 


DC * ACTFLG 


/CLEAR THE ACT FLAG 


0522 


7240 




CUA CM A 




0523 


3041 




DC* INTFUG 


/SET INTERRUPT FLAG 


052* 


4775/ 




JMS RETURN 




0525 


-•530 




INTRET 




0526 


1251 




TAD AC 




0527 


5730 




JMP I INTRET 





0530 "000 INTHrT, 



/ROUTINE TO UAIT FOR SERIAL LINE UNITS XM[T FLAG 



/DKCO.BA OPTION TEST 1 



0531 
0532 
0533 
0534 
0535 
0536 
0537 
054? 



0542 
0543 
0544 
0545 
0546 
0547 
0550 
0551 



0553 
0554 
0555 
0556 
0557 
0560 
0561 
0562 



7300 
1150 
3044 
3043 
6041 
4363 
2331 



0541 "5731 



7300 
1150 
3044 
3043 
6031 
4363 
2342 



0552 5742 



?000 
7240 
3044 
3043 
6137 
4363 
5353 
5753 



HAINOEO«0B.OJDKA.B«L IK PART 
WATTSF i 



CIA 
TAO 
OCA 
OCA 
TSF 
JMS 
ISt 



CLL 
K7710 
CNT1 
CNT 

ADOTIH 
WATTSF 



JHP I WATTSF 



PAL10 V142A 16.JUN.75 



/SKIP ON SLU TRANSMIT FLAG 
/GO 4D0 ONE TO THE COUNTER 

/RSTUHN TO THE PPQGRAMbGOT TUE FLAG 



PAGE 2.13 



/ROUTINE TO WAIT FOR THE SERIAL LINE UN[T RECEIVE FLAG 



WATKSF, 





CL.A 
TAD 
DC* 
0C» 
KSF 
JMS 
ISf 



CLL 
K7710 
CNTl 
CNT 



ADOTIM 
WATKSF 



JHP I WATKSF 



/SKIP ON SLU RECEIVE FLA! 
/GO ApD A ONE TC THE COUNTER 

/R.ETUKN TO THE PROGRAM. GOT THE FLAG 



/ROUTINE TO WAIT FOR THE REAL T J ME CLOCK F[.Ac 
WTCLSKi 




CL* 
OCA 

OCA 

CLSK 

JMS 

IS! 

JMP 



CM A 

CNTl 

CNT 

ADOTIM 
HTCLSK 
WTCLSK 



/SKIP ON THE REAL TJME CLOCK FLAG 
/GO ABO ONE TO THE COUNTER 

/RETURN TO THE PROGRAM. GOT THE FLAG 



/ROUTINE TO WAIT FOR THE FLAG 

0563 .1000 ADPTJMi 

0564 5043 ISZ CNT 

0565 7610 SKP CLA 

0566 2044 ISZ CNTl 
0547 7340 CLA CLL CM* RTL 
057? 7001 IAC 

0571 1363 TAD ADOTIM 

0572 3363 OCA ADDTIM 

0573 5763 JMP I ADDTIM 



0575 0620 

0576 3744 

0577 0641 

PS00 PAGE 



/THIS IS THE ENp OF A PROGRAM PASS', IF SR3il HALT, IF NOT START PROGRAM OVER 



0600 6160 ENOPAS, SJHCLR /CLEAR THE SIMULATOR 



/DKC8«9» OPTION TEST 1 MAINOec.Bs»DJOKA-B»L IK PART 4 PALIS V1 42 a 



0601 
0602 
0603 
0604 
0603 
13606 



4435 
7206 
7004 
7710 
7402 
5777' 



0607 3000 

0613 72P0 

0611 1021 

0615 7700 

0613 5216 

0614 7604 

0615 5607 

0616 1020 

0617 5607 



SWHCHK 

R TL 

PAL 

SPA 

U LT 

JMP 



l6-JUN«75 

/DO GET SWITCH REGISTER 
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/SR3=1 END OF A COMPLETE PROGRAM PASS 
/START PROGRAM OVER 



/CHECK TO SEE IF FRONT PANEL IS AVAILABE TO 00 EITHER A TAO SWITCH OR A LAS COMMAND 



CIA 

TAO 0P1SEL 

SMA CLA 

JMP ,*3 
LAS 

JMP I CHKSUH 

TAO SWITCH 

JMP I CHKSWH 



/THIS ROUTINE SETS UP A RETURN ADDRESS FOR INTERRUPT RETURNS FROM ANOTHER FIELD 







/THIS 


ROUTINE 


SETS UP 


0623 


0000 


RETURN 






0621 


6201 




CDF 




0622 


1636 




tad : 


: KB 


0623 


3237 




ncA 


RETADD 


0624 


6224 




R I F 




0625 


1132 




TAD 


KCDF 


0626 


3227 




OCA 


.+1 


0627 


7402 




HLT/CDF 


0630 


1620 




TAO '1 


RETURN 


0631 


3240 




OCA 


SAVLOC 


0632 


2220 




IS! 


RETURN 


0633 


1237 




TAD 


RETADD 


0634 


3640 




DCA I 


SAVLOC 


0635 


3620 




JMP 1 


RETURN 


0636 


P000 


K0i 







0637 


2000 


RETADD 


» ® 




0640 


*000 


SAVLOC 


1 





/CHANGE DATA FIE L D TO FIELD 
/GET THE INTERRUPT PC 
/SAVE IT 

/READ THE PROGRAM INSTRUCTION FIELD 
/ADD A CDF INSTRUCTION TO IT 
/SAVE IT IN THE NEXT LOCATION 
/RETURN TO THE PROGRAM DATA FIELD 
/GET THE INTERRUPT RETURN LOCATION 
/SAVE IT 



0641 
0642 
0643 
0644 
0645 
0646 
0647 
0630 
0651 



7200 
6201 
12*5 
3636 
1045 
3666 
1267 
3670 
1133 



/POWER FAIL ROUTINE, THE PROGRAM WILL 00 IT'S OWN AUTORESTART 
/AT THE BEGINNING OF THE TEST THAT IT WAS EXECUTING UNLESS ALL POWER 
/WENT A«A», THEM THE POWER FAIL AUTO, RESTART OPTION WOULD TRY TO DO 
/ A RESTART IF IT W»5 SELEC T En', 



PQWFALi 



Ola Cla 

CDF 00 

TAO K jMp? 

DCA I K0 

TAD TEST 

DCA I KTEST 

TAD FLGRST 

OCA I C7 

TAD KRTF 



/DKC6-BA OPTION TEST 1 MAINDEC08.DJDKA.B-L IK PART 4 P A L10 V1 42 A ls.JJN.7j 



0652 3671 

0653 1272 
3654 3673 

0655 6004 

0656 3674 

0657 5244 

0660 6103 

0661 6102 

0662 7610 

0663 5261 

0664 5445 



9|0 6 



DCA I Kj.0 
TAD KJMfJRT 
DCA I Kll 
GTF 

OCA I K12 

RMF 

CAL 

SPL 

SKP CLA 
JMP ,-2 
JMP I TEST 
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0665 5037 

0666 T045 

0667 1012 
067? -007 

0671 1010 

0672 5445 

0673 ,^011 

0674 212 



KJMP7, 

KTEST, 

FLGHST, 

C7| 

K10, 

KJMPRT, 

Kll, 

K12, 



JMP 7 
TEST 
TAD 12 



10 
JMP 
11 
12 



I TEST 



/LOGIC ERROR ROUTINE . RESTART TEST IF SRI. I 



0675 


S"000 


AERROR, 






0676 


4326 




JMS 


ACTC 


0677 


4435 




SWHCHK 


0700 


7710 




SPA 


CLA 


0701 


5307 




JMP 


AERSWH 


0702 


7240 




CLA 


CM A 


0703 


1275 




TAD 


AERHOR 


0704 


7402 




HIT 




0705 


4314 




JMS 


SIMWRD 


0706 


7402 




HLT 


0707 


4435 


AERSWH, 


SWHCHK 


0710 


7004 




R AL 




0711 


7700 




SMA 


CLA 


0712 


5675 




JMP 


I AERROR 


0713 


5446 




JMP 


I TSTLOP 


0714 




SlMWRJi 







0715 


7300 




=L» 


CLL 


0716 


1021 




TAD 


0P15EL 


0717 


0057 




*N0 


K200 


07J0 


7650 




SNA 


CLA 


0721 


5324 




JMP 


,+3 


0722 


1055 




TAD 


CONTWO 


0723 


5714 




JMP 


I SIMWRD 


0724 


2314 




ISZ 


SIMWRD 


0725 


5714 




JMP 


I SIMWRD 



/GO CHECK T SEE IF RUNNING ON ACT LINF 
/CHECK SR0 TO INHIBIT ERROR "ALT 

/SR0.1 CHECK LOOP ON LOGIC ERROR 



/AC = ADDRESS WHERE ERROR WAS DETECTED 
/WAS THE SIMULATOR SELECTED 
/AC.SIMULATOR CONTROL WORD 
/CHECK SR1.1 TO LOOP ON ER»0° 

/RETURN WITHOUT LOOPING ON TEST 

/SCOPE LOOP GO BACK TO START OF TEST SECTION 



/ROUTINE TO EXIT TO PROM ON AN ERROR IF RUNNING ON THE ACT LINE 



/OKCS.BA OPTION TEST 1 M» INDECU9.0JDKA.B.L IK PART 4 PAL10 V1«A 16.JUN.79 9186 PAGE 2.13 



0736 f000 

0727 7300 

0733 1022 

0731 7750 

0732 5726 

0733 4302 

0734 7344 

0735 1326 

0736 3343 

0737 7240 

0740 1743 

0741 6272 

0742 5500 

0743 :<000 



ACTCHK, 





CLA 
TAD 
SMA 

JMP I 
I OT 

CLA CLL 
TAD 
DCA 
CLA 

TAD I 
CIF 

JMP I 



CLL 

0P2SEL 
CLA 

ACTCHK 

CHA PAL 

ACTCHK 

ERRPC 

CMA 

ERRPC 

70 

BADPAS 



/GET THE HARDWARE CONTROL WORD 

/IS THE PROGRAM RUNNING ON THE ACT LINE? 

/NO i RETURN Tl) ERROR ROUTINE 

/TURN THE INTERRUPT OFF 



/GET THE LOCATION WHERE THE ERROR WAS DETECTED 
/CHANGE INSTRUCTION F IELH TO FIELD 7 
/GO TO THE RRUM 



0744 


:-000 


CHkACTi 











0745 


6137 




CLSK 




/WAS THE CLOCK FLAG SET 




0746 


7410 




SKP 




/NO-RETURN TO I NT SERVICE 


ROUTINE 


0747 


5352 




JMP 


CLKSET 


/YES-CLEAR THE FLAG 




0730 


Z344 




ISZ 


CHKACT 


/ADD 1 TO THE INCOMING PC 




0751 


5744 




JMP I 


CHKACT 


/RETURN TO SKIP CHAIN 




0752 


6136 


CLKSET, 


CLCL 




/CLEAR THE CLOCK FLAG 




0753 


1322 




TAD 


0P2SEL 


/GET THE ACT LINE BIT 




0754 


7710 




SPA 


CLA 


/IS THE PROGRAM RUNNING OK 


ACT LINE 


0755 


3365 




JMP 


ONACTL 


/YES, CHECK FOR * OF CLOCK 


TICKS 


0756 


5350 




JMP 


CHKACT+4/RETURN TO INTERRUPT ROUTINE 


0757 


4220 




JMS 


RETURN 


/NO i RETURN TO THE PROGRAM 




0760 


[•764 




ACTRET 








0761 


1776' 




TAD 


AC 






0762 


6001 




ION 




/TURN THE INTERRUPT ON 




0763 


5764 




JMP I 


ACTRET 


/RETURN TO THE PROGRAM 




0764 


^000 


ACTRET, 











0765 


2102 


ONACTLi 


IS? 


ACTCNT 


Ml CLOCK TICKS YET? 




0766 


5357 




JMP 


CLKSEU5/N0 RETURN TO PROGRAM 




0767 


1103 




TAD 


M144 


/RESET ACT TIME COUNTER 




0770 


3152 




OCA 


ACTCNT 


/SAVE THE NU«UER 




0771 


6272 




CIF 


70 


/CHANGE INSTRUCTION FIELD 


TO 7 


0772 


4501 




JMS I 


000DPS 


/SIGNAL PROM THAT PROGRAM 


STILLS PAS 


0773 


7240 




CLA 


CMA 






0774 


3134 




DCA 


ACTFLG 


/SET THE ACT LINE FLAG TO 


ONES 


0775 


5357 




JMP 


CLKSET+5/RETURM TO TME PROGRAM 




0776 


MSI 












0777 


.'200 














1000 




PAGE 









/ROUTINE FOR TRANSMITTING, READING ANp COMPARING DATA FOR PARALLEL I/O 



/DKC8.BA OPTION TEST 1 M A I NOEC »0 JDK A-B »L IK PART 4 PALI? V142A 16.JLIN-73 



1000 "000 

1001 4007 

1002 4146 

1003 6001 

1004 6575 

1005 1051 

1006 6574 

1007 7200 
101" 6571 

1011 "427 

1012 2041 

1013 4427 

1014 3041 

1015 4572 
1816 3052 
1317 6571 

1020 4427 

1021 6573 

1022 6001 

1023 7000 

1024 4570 

1025 7610 

1026 4427 

1027 2041 

1030 4427 

1031 6001 

1032 7000 

1033 1041 

1034 7640 

1035 4427 

1036 1051 

1037 7041 

1040 1052 

1041 7640 

1042 5J30 

1043 6007 

1044 4146 

1045 6001 

1046 6572 

1047 7640 

1050 4427 

1051 2200 

1052 5600 



1053 ?000 

1054 6007 

1055 4146 

1056 6001 

1057 3041 

1060 1053 

1061 6046 

1062 4431 



DATPIO, 



CAF 

RTCENA 

ION 

DBSE 

TAD PIOXMT 

DBTO 

CLA 

DBSK 

ERROR 

ISZ INTFLG 
ERROR 

OCA INTFLG 
OBRU 

0C» PIOREC 

08SK 

ERROR 

DBCF 

I ON 

MQP 

DBST 

SKP CLA 

ERROR 

ISZ INTFLG 

ERROR 

ION 

NQP 

TAD INTFLG 
SZA CLA 
ERROR 

TAO PIOXMT 
C]A 

TAO PIOREC 
SZA CLA 
JMP I DATPIO 
CAF 

RTCENA 

ION 

OBRD 

SZA CLA 
ERROR 

ISZ PATPIO 
JMP I OATPIO 



/CLEAR ALL 

/SET REAL TIME CLOCK INT ENA 
/TURN THE INTERRUPT ON 
/SET PARALLEL I/O INT ENA 

/GET THE WORD TO BE LOADED INTO PARALLEL I/O 
/LOAD AND TRANSMIT THE WORD 

/SKIP ON DATA READY 

/ERROR, DATA READY FLAG FAILED TO SET SY DBTO 
/GET PROGRAM INTERRUPT FLAG 

/PROGRAM FAILED TQ INTERRUPT WITH INT ENA * FLAG SET 

/CLEAR PROGRAM INTERRUPT FLAG 

/READ THE 12 BIT PARALLEL I/O BUFFER 

/SAVE THE WORO HEAD 

/SKIP ON DATA READY FLAG 

/DP.RD CLEARED DATA READY FLAG 

/CLEAR DATA READY FLAG 

/TURN INTERRUPT BACK ON 

/SHOULD INTERRUPT HERE FOR DATA ACCEPT FLAG 
/SKIP ON DATA ACCEPT 

/DATA ACCEPT FAILED TO CLEAR IN INTERRUPT ROUTINE 
/CHECK TO SEE IT IT INTERRUPTED 
/DATA ACEPT FLAG FAILED TO INTERRUPT 
/TURN THE INTERRUPT BACK QN 

/GET PROGRAM INTERRUPT FLAG 
/DID IT INTERRUPT? 

/PROGRAM INTERRUPTED WITHOUT DATA READY SET 
/GET THE WORD TRANSMITTED 

/GET THE WORD READ 
/ARE THEY EOUAL? 

/DATA ERROR RETURN TO REPORT ERROR 
/CLEAR ALL FLAGS AND P I/O BUFFER 

/TURN THE INTERRUPT ON 

/READ THE 12 BIT P I/O BUFFER 

/CAF FAILED TO CLEAR THE 12 BIT 3aTa BUFFER 

/BUMP RETURN ADDRESS POINTER BY 1 
/RETURN TO TEST 



/ROUTINE FOR TRANSMITTING, READING AND COMPARING DATA FOR SLU 



DATSLU, 



CAF /CLEAR ALL FLAGS BUT SET INT ENA ON SLU 

RTCENA /SET REAL T I ME CLOCK INT ENA 

ION /TURN THE INTERRUPT ON 

DCA INTFLG /CLEAR THE PROGRAM INTERRUPT FLAG 

TAO SLUXMT /GET THE WORD To BE TRANSMITTED 
TLS /LOAD AND TRANSMIT IT AND CLEAR THE FLAG 

TSFWAT /WAIT FOR THE TRANSMIT FLAG 
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1063 


4427 


ERRQR 




1064 


?041 


IS? 


I N TFL G 


1365 


4427 


ERROR 


1066 


6042 


TCF 




1267 


6001 


ION 




1070 


4432 


KSFHAT 




1071 


4427 


ERROR 




1072 


2041 


r sz 


INTFLG 


1073 


4427 


ERROR 




1274 


6036 


KRB 




1075 


3054 


OCA 


SLUREC 


1076 


6031 


ION 




1077 


1041 


TAD 


INTFLG 


1103 


7640 


SZA 


CLA 


1101 


4427 


ERROR 




1102 


1053 


TAD 


SLUXMT 


1103 


7041 


CIA 




1104 


1054 


TAD 


SLUREC 


1105 


7640 


SZA 


CLA 


1106 


5653 


JMP I 


DATSLU 


1107 


2253 


ISZ 


datslu 


1110 


5653 


JMP I 


OATSLU 



INTERRUPT 
A INTERRUPT 



/XMIT FLAG FAILED TO SET 
/DID THE PROGRAM INTERRUPT? 
/PROGRAM FAILED TO INTERRUPT 
/CLEAR THE XM J T FLAG 
/TURN THE INTERRUPT SACK ON 
/WAIT FOR THE RECEIVE FLAG TO SET 
/RECEIVE FLAG FAILED TO SET 
/DID THE RECEIVE FLAG CAUSE 
/RECEIVE FLAG FAILED TO CAUSE 
/CLEAR THE AC AND RCV FLAG AND READ SUFFER 
/SAVE THE WQRP HEAD BACK 
/TURN THE INTERRUPT BACK ON 
/CHECK THAT KKB CLEARED THE RCV FLAG 

/K"B FAILED TO CLEAR RCV FLAG OR INTERRUPTED 
/GET THE WOHO TRANSMITTED 

/GET THE WORD READ BACK 

/DATA ERROR-RETURN TO REPORT THE ERROR 
/BUMP RETURN ADDRESS POINTER BY ONE 
/RETURN TO TEST 



1111 
1112 
1113 
1114 
1115 
1116 
1117 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1130 
1131 
1132 
1133 



4777' 
4435 
7710 
5327 

724a 

1311 
7402 
7200 
1051 
7402 
7200 
1052 
7432 
4435 
7004 
7700 
5711 
5446 



1134 ?000 

1135 4777' 

1136 4435 

1137 7710 

1140 5354 

1141 7240 



/DATA ERROR ROUTINE FOR PARALLEL I/O 

DERPIOi 

JMS 



ACTCHK 

SWHCHK 
SPA CLA 
JMP PIOSUH 
CLA CMA 
TAD OERPIO 
HLT 
CLA 

TAD PIOXMT 
HLT 

CLA 

TAD PIOREC 
HLT 

PIOSUH, SWHCHK 
RAL 

SMA CLA 

JMP I DERPIO 

JMP I TSTLOP 



/CHECK TO SEE IF RUNNING ON ACT LINE 
/CHECK SR0 TO INHIBIT ERROR HALT 
/IS SR0 SET? 

/VES, GO CHECK SRl TO LOOP ON ERROR 



/AC « ADDRESS WHERE ERROR WAS DETECTED 

/GET THE WORD TRANSMITTED 
/AC = THE GOOD WORD 

/GET THE WORO READ 

/AC = THE BAD WORD - WORO READ 

/LOOP ON DATA ERROR IF S=l«l 

/LOOP? 

/NO, RETURN TO TEST 

/RETURN AND no SAME PATTERN(S) 



/DATA ERROR ROUTINE FOR SERIAL LINE UN I T 
DERSLUi 



JMS 

SWHCHK 
SPA 
JMP 
CL* 



ACTCHK 
CLA 

SLUSWH 
CMA 



/check to see if running on the act line 
/check sr0=1 to inhibit error halt 

/GO CHECK SRlil TO LOOP ON ERROR 



/DKC8.BA OPTION TEST l MA I NOEC.0S.DJDKA.B.L IK PART 4 PALlo V142A 16.JUN.75 



9106 



PAGE 2.16 



1142 


1334 


TAD 


OERSLU 


1143 


7402 


HLT 


1144 


7200 


CL* 




1145 


1053 


TAD 


SLUXMT 


1146 


7402 


HLT 


1147 


7200 


CLA 




1153 


1054 


TAD 


SLUREC 


1151 


7432 


HLT 


1152 


4776' 


JMS 


SIMWRD 


1153 


7402 


HLT 


1154 


4435 


SLUSSJH, SWHCHK 




1155 


7034 


RAL 




1156 


7700 


SMA 


CLA 


1157 


5734 


JMP I 


OERSLU 


1160 


5446 


JMP I 


TSTLOP 



/ACMDRESS WHERE ERROR WAS DETECTED 

/GET THE WOHO TRANSMITTEO 
/AC«GOOD WORD. THE WORD TRANSMITTED 

/GET THE WORO READ 
/AC.THE BAD WORD-THE WORO READ 
/WAS THE SIMULATOR SELECTED 
/ACaTHE SIMULATOR CONTROL WORD 
/LOOP ON DATA ERROR IF SRlsl 

/LOOP7 

/NO, RETURN TO TEST 



1161 3000 CHKSIH, 3 

1162 1021 TAD OP1SEL /CHECK FOR SIMULATOR 

1163 f057 AND K200 

1164 7650 SNA CLA 

1165 5371 JMP ,+4 / N o 

lls * 17S * T »D I CHKSIM /GET THE CONTROL WORD 

1167 3055 OCA CONTKD /SAVE IT 

1173 7410 SKP 

1171 2361 IS? CHKSIM 

1172 2361 IS? CHKSIM 

1173 1361 TAD CHKSIM 

1174 3046 OCA TSTLOP 

1175 5761 JHP I CHKSIM 



1176 3714 

1177 ?726 
1200 



1203 6160 

1201 4104 

1202 1215 

1203 1377 
1234 3047 

1205 6007 

1206 6137 

1207 5206 
1210 6136 



/REAL T1MJ C LOCK TIMING TEST 



RTCTIM, SIMCLR 
JMS 

PTC I NT 

TAD 

OCA 

OAF 

CLSK 

JMP 

CLCL 



PATCH 



Ii9667 
TSTCNT 



i"l 



«*»»»*»»««»«« 



/SETUP INTERRUPT SERVICE 

/SET UP A COUNT FOR 59-99 CLOCK TICKS 

/SAVE CLOCK TICK COUNTER 

/CLEAR ALL FLAGS 

/WAIT FOR THE FIRST CISC* FLAG 

/CLEAH THE CLOCK FLAG 
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1211 
1212 
1213 
IZ1« 
1213 
1216 
121' 
122a 
1221 
1222 



7301 
4135 

ssiai 

3214 
6136 
7300 
81547 
3213 
7602 
5200 



RTOI'IT 



CLA CLL 

CLLE 

ION 

JMP 

CLCL 

CLA 

ISZ 

JMP 

HLT 

JMP 



US 



CLL 
TSTCNT 
RTCINT. 
CLA 

RTCTIM 



/LOAD CLOCK INTERRUPT EN48E 
/TURN THE INTERRUPT ON 

/CLEAR THE CLOCK FLAG 
/CLEAR THE AC AND LINK 
/□ONE VET T 
2 /RETURN TO WAIT rOR NEXT FLAG 

/WAS IT 30 SECONOS 
/DO TEST OVER OR DO ANOTHER TEST 



/SERIAL LINE UNIT TIMING TEST 
/••«•••• ••••• ••• 



1223 6160 

1224 4134 
1223 1271 
1226 7402 



SLUT!*, 



SIMCLR 

JMS PATCH 

SLUINT 
HLT 



1227 
1230 


4435 




SWHCHK 




?376 




AND 


(17 


1231 


3304 




DCA 


BAUDWD 


1232 


1304 




TAD 


BAUOWD 


1233 


?064 




AND 


K7 


1234 


3303 




DCA 


BAUDRT 


1233 


1304 




TAD 


BAUDWD 


1236 


?3'3 




AND 


(10 


1237 


7J40 




SiA 


CLA 


1240 


7326 




CLA CLL 


CML RTL 


1241 


3306 




DCA 


STPBIT 


1242 


1305 




TAD 


BAUDRT 


1243 


1374 




TAD 


( BAUDTB 


1244 


3307 




DCA 


BOPNTR 


1245 


1707 




TAD I 


BDPNTR 


1246 


1306 




TAD 


STPBIT 


1247 


3307 




DCA 


BDPNTR 


1253 


1307 


SLUSTH, 


TAD 


BDPNTR 


1231 


3047 




DCA 


TSTCNT 


1252 


3 447 




TAD I 


TSTCNT 


1253 


3043 




DCA 


CNT 


1234 


8047 




ISZ 


TSTCNT 


1255 


1447 




TAD I 


TSTCNT 


1236 


3044 




DCA 


CNT1 


1257 


6007 




CAE 




1260 


6046 




TLS 




1261 


6041 




TSF 




1262 


3261 




JMP 


,"1 


1263 


5266 




JMP 


,+3 


1264 


6036 


I.JTON, 


KRB 




1265 


7610 




SKP 


CLA 


1266 


6046 




TLS 




1267 


6031 




ION 




1273 


5270 




JMP 





/SETUP INTERRUPT SERVICE 

/SET THE SR IF SELECTED OR LOCATION 20 
/TO THE BAUD RATE AND « OF STOP BITS 
/TO BE TESTED', 

/GO GET LOCATION 20 OR THE SR 

/MASK OUT THE BAUD RATE AND STOP BIT 

/SAVE THE BAUD RATE AND STOP BIT 

/GET THE WORD 

/MASK OUT THE BAUD RATE 

/SAVE IT 

/CHECK FOR THE NUMBER OF STOP BITS 

/% OR S STOP BITS 

/STOP BITS EOUAL 2 

/SAVE THE STOP BITS 

/GET THE BAUD RATE S0 . 7) 

/GET THE ADDRESS OF THE BAUD RATE TABLE 

/SAVE THE TABLE POINTER ADDRESS 

/GET THE ADDRESS OF THE CONSTANTS 

/ADO B FOR 1 SB OR 2 FOR 2 SB 

/SAVE THE POINTER TO THE CONSTANTS 

/ACTUAL TEST STARTS MERE 

/SAVE THE POINTER IN TEST COUNT 

/GET THE FIRST CONSTANT 

/SAVE IT 

/ADD 1 TO THE WORKING POINTER 
/GET THE SECOND CONSTANT 
/DCA CNT1 
/CLEAR ALL FLAGS 

/LOAD AND TRANSMIT THE FIRST CHARACTER 
/THE FIRST FLAG COMES UP WITHIN USEE'S 

/GO AND CLEAR FLAG AND TRANSMIT AGAIN 
/CLEAK THE RECEIVE FLAG 

/LOAD AND TRANSMIT AND CLEAR FLAG 
/TURN THE INTERRUPT ON 



OPTION 


TEST 1 


MAINDEC 


.0B.DJDKA 


-B<L lK PART 4 


PAL10 V142A 16-JUN.73 9106 


1271 


6031 


SLUINT 


1 KSF 




/SKIP ON THE RECEIVE FLAG 


1272 


7610 




SKP 


CLA 




1273 


5264 




JMP 


INTON 


/CLEAR THE RECEIVE FLAG AND TURN INT ON 


1274 


6041 




TSF 




/SKIP IF TRANSMIT FLAG SET 


1273 


4427 




ERROR 




/ILLEGAL INTERRUPT 


1276 


S043 




IS2 


CNT 


/ADO ONE TO THE FIRST COUNTER 


1277 


5266 




JMP 


INTON+2 




1333 


2044 




ISZ 


CNTl 


/OVERFLOWED FIRST COUNT ADD 1 TO SECOND 


1301 


5266 




JMP 


INT0N*2 


/GO DO ANOTHER 4?95 INTERRUPTS 


1302 


7602 




HLT 


CLA 


/WAS IT 30 SECONDS 77? 


1303 


5223 




JMP 


SLUTIM 


/GO 00 IT AGAIN OR START ANOTHER TEST 


1304 


J-000 


BAUDWB 


1 






1305 


■!000 


BAUDRT 


, 






1306 


"000 


STPBIT 


, 






1307 


!>000 


BDP'JTR 


, 










/POINTERS TO BAUD RATE TABLES 




1310 


1320 


RAUQT9 


, 5R110 






1311 


1324 




RR160 






1312 


1330 




9R300 






1313 


1334 




BR600 






1314 


1340 




BR1200 






1315 


1344 




PR2400 






1316 


1350 




3R4300 






131? 


1354 




BR96B0 










/3AUD 


RATE CONSTANTS FOR 110 


BAUD 


1323 


7266 


BR110, 


•512 




/10 BITS AT u CHAR/SEC5330 CHAR/30 SEC 


1321 


7777 




•1 




1322 


7324 




.434 




/ll BITS AT 10 CHAR/5EC=300 CHAR/30 SEC 


1323 


7777 




•1 










/BAUD 


RATE CONSTANTS FOR 150 


BAUD 


1324 


7076 


9R19H, 


.702 




/10 B[TS AT 15 CuAR/SEC'450 CHAR/30 SEC 


1325 


7777 




-1 






1326 


7147 




.631 




/ll BITS AT 13',64 CHAR/SECM39 CHAR/30 ! 


1327 


7777 




•1 










/BAUD 


RATE CONSTANTS FOR 330 


BAUD 


1330 


6174 


BR300, 


• 1604 




/13 BITS AT 30 CHAR/SEC«900 CHAR/30 SEC 
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1331 7777 

1332 6316 

1333 7777 



1334 4370 
1333 7777 
1336 4633 



•1 

• 1462 
-1 



/ll RJTS AT 27,27 CHAR/SEC>818 CHAR/30 SEC 



/BAUD RATE CONSTANTS FOR 600 BAUD 

/10 
/ll 



.3410 
-1 

.3145 



BJTS AT 60 ChAR/SeC=1800 ChAR/30 SeC 
BITS AT 54',45 CHAR/SEC=1*37 CHAR/30 SEC 



/DKCS.BA OPTION TEST 
1337 7777 



1340 B760 

1341 7777 

1342 1467 

1343 7777 



1344 1737 

1345 7776 

1346 3156 

1347 7776 



1353 3675 

1351 7774 

1352 6332 

1353 7774 



1354 7571 

1355 7770 

1356 4664 

1357 7771 



1 MAINDEC.08.DJ0KA.S.L 
•1 

/BAUD RATE CONSTANTS 

9312001 -7320 
•1 

■ 6311 
•1 

/BAUD RATE CONSTANTS 

BR2400, -6041 
-2 

-4622 
-2 

/BAUD RATE CONSTANTS 

BR4800, -4103 

■ 4 

-1446 
-4 

/BAUD RATE CONSTANTS 

<>;■.■<:, -207 
-10 

■3114 

■ 7 
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FOR 1300 BAUD 

/IB BjTS AT 120 CHAR/SEC06BJ C H AR/30 SEC 
/ll BITS AT 1B9.B9 CHAR/5EC3273 CHAR/30 SEC 

TOR 2400 RA ! JO 

/IB BIT AT 240 ChAR/SeC«7200 CHAR/30 SeC 
/ll BITS AT 218,18 CHAR/3EC=6545 CHAR/30 SEC 

FOR 4300 BAUD 

WS BITS AT 480 CHAS/SEC*14,*00 CHAR/30 S£C 
/ll BITS' AT 436,36 CH AR/SEC: 1 3 , 091 CHAR/30 SEC 

FOR 9400 BAUD 

/It! Bps AT 960 CHAR/S£C«26,100 CHAR/30 SEC 
/ll BITS AT 872,73 CHAR/SEC=26, 182 CHAR/30 SEC 



1363 C000 

1361 1371 

1362 7044 

1363 5043 

1364 3043 

1365 5364 

1366 3044 

1367 5364 

1373 5760 
1371 7763 

1374 1310 

1375 "010 

1376 3017 

1377 21U 
1400 



/THIS ROUTINE WILL WAIT FOP APPROXIMATELY 255MS 9EF0RE EXITING TO ALLOW FLAGS TO SETTLE, 



DELAY, 



'U5, 



TAO 
DCA 
OCA 
I Si 
JMP 
IS2 
JMP 
JMP 
■15 



PAGE 



HIS 

CNTl 

CNT 

CN T 

.-t 

CNTl 

,.3 

DELAY 



1400 
1401 



3325 
7010 



/INTERACTIVE SKIP CHAIN FOR SLU,PTC, AND PI/O TEST 4? 

INTSKPi OCA ACDRET /SAVE T H E AC 

"AS 



/DKCB^BA OPTION TEST j. MA I NDECB8-D JPKA-B-L jK PART 4 PAL t V 142 A 



1402 
1433 
1404 
1405 
1406 
1407 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1420 
1421 
1422 
1423 



3326 

6102 

7610 

5777' 

6041 

7610 

5327 

6031 

7610 

5776' 

6137 

7610 

5333 

6571 

7610 

5224 

4427 

5445 
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OCA 


LINKRT 


SPL 




SKP 


CLA 


JMP 


POHFAL 


TSF 




SKP 


CLA 


JMP 


XMTSER 


*sr 




SKP 


CLA 


JMP 


RECSER 


CLSK 




SKP 


CLA 


JMP 


RTSSER 


OBSK 




SKP 


CLA 


JMP 


PIOSER 


ERROR 




JMP I 


TEST 



16-JUNr75 

/SAVE THE LI"K 

/SKIP ON POWER LOW FLAG 

/POWER GOING DOWN 
/SKIP ON SLU XMIT FLAG 

/XMIT FLAG SET GO SERVICt IT 
/SKIP CN RECEIVE FLAG 

/SERVICE THE RECEIVE FLAG AND COMPARE DATA 
/SKIP ON REAL TI-E CLOCK FLAG 

/GO SERVICE THE RTC FLAG 
/SKIP ON P I/O DATA READY FLAG 

/GO SERVICE THE PARALLEL I/O FLAG 
/ILLEGAL INTERRUPT 
/RESTART THE TEST 



/12 BIT PARALLEL J/O INTERACTIVE ServjCe Routine TEST 42 



1424 
1425 
1426 
1427 
143C 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1453 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1460 
1461 
1462 
1463 
1464 
1465 



1066 

3076 

6572 

6573 

3352 

6570 

4427 

6570 

7610 

4427 

4775' 

1051 

7041 

1052 

7640 

4774' 

7301 

1323 

1324 

7106 

3323 

1324 

7012 

1323 

3324 

1324 

3071 

7010 

3072 

2091 

1051 

6574 

7300 

5306 



TAD 


M10 


DCA 


PNOI'lT 


D8»0 




D8CF 




DCA 


PIOREC 


DBST 




ERROR 




DBST 




SKP 


CLA 


FRRQR 




JHS 


CMPACL 


TAD 


PIOXHT 


C[A 




TAD 


PIOREC 


S2A 


CLA 


JMS 


PIOERR 


CLA CLL 


IAC 


TAD 


RANI 


TAD 


RAN2 


CLL 


"TL 


DCA 


RANI 


TAD 


RAN2 


RTR 




TAD 


RANI 


DCA 


RAN2 


TAD 


RAM2 


DCA 


EXPACD 


BAR 




OCA 


LINK 


!Si 


PIOXHT 


TAD 


PIOXMT 


05TD 




CLA 


CLL 


JMP 


ACLION 



/SET UP A COUNTER OF M10 FOR 
/PARALLEL I/O NO INTERRUPT ERROR 
/SEAT THE 12 BIT P I/O DATA WORD 
/CLEAR THE DATA READY FLAG 
/SAVE THE WORD READ 

/SKIP AND CLEAR DATA ACCEPTED * DATA AVAIL 
/DBCF FAILED TD SET DATA ACCEPTED 
/SKJP ON DATA ACCEPTED 

/PBST FAILED TO CLEAR DATA ACCEPTED 
/COMPARE THE AC DATA AND LINK 
/COMPARE THE XM I TTED WITH WORD READ 

/ARE THEY EQUAL? 
/NO DATA ERROR 

/GENERATE A RANDOM AC DATA WORD 



/SAVE THE EXPECTED AC DATA WORD 

/SAVE THE EXPECTED LINK 

/ADD ONE TO THE WORD TO K TRANSMITTED 

/GET THE WORD 

/LOAD AND TRANSMIT IT 

/GO GET THE AC DATA WORO AND L , ION 
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1466 


1073 


RTCSLU, 


TAD 


XMTFLG 


1467 


1074 




TAD 


RECFLG 


147? 


1075 




TAD 


RTCFLC 


1471 


7650 




SNA 


CLA 


1472 


5276 




JMP 


RESET 


1473 


2077 




IS? 


INACTV 


1474 


5306 




JMP 


ACL ION 


1475 


4773' 




JMS 


IN4CDV 


1476 


7340 


RESET i 


CL* cm 


DMA 


1477 


3073 




DCA 


XMTFLG 


1532 


7240 




CIA 


CMA 


1501 


3074 




OCA 


RECFLG 


1302 


7240 




CIA 


CMi 


1503 


3075 




OCA 


RTCFLG 


1504 


1372 




TAD 


(.40 


15515 


3077 




nCA 


INACTV 


1506 


4771/ 


ACLION, 


JMS 


RETURN 


1507 


1522 




INTERA 




1510 


7300 




CLA 


CLL 


1911 






TAD 


L INK 


1512 


7004 




RAL 




1513 


1071 




TAD 


EXPACD 


1514 


6001 




ION 




1515 


2076 




ISZ 


PNOINT 


1516 


5722 




JMP I 


INTERA 


1517 


7300 




CLA 


CLL' 


1520 


4427 




ERROR 




1521 


5445 




JMP I 


TEST 


1322 


"000 


I'jTERAi 







1523 


1234 


RANI, 


1234 




1524 


5670 


RAN2, 


5670 




1525 


f 000 


ACOHET, 







1526 


£•000 


LINKRT, 








/CHECK* ALL DEVICES TO SE INTERRUPT I NG 

/ 

/ 

/ARE THEY? 

/YES RESET FLAGS TO INACTIVE 
/BUMP DEVICE INACTIVE COUNTER 
/CONTINUE THE TEST 
/ERROR A DEVICE IS INACTIVE 

/SET SLU XMJT FLAG TO INACTIVE 

/SET SLU REC FLAG TO INACTIVE 

/SET RTC FLAG TO INACTIVE 
/RESET DEVICE INACTIVE COUNTER 
/TO -40 

/SETUP INTERRUPT RETURN 

/SETUP AC AND LI l 'K AMD TURN INTERRUPT ON 
/GET THE LINK 

/GET THE AC DATA WORD 

/TURN THE INTERRUPT ON 

/ADD 1 TO P I/O NO INTERRUPT COUNTER 

/RETURN TO PROGRAM 

/ERROR PARALLEL I/O FAILED TO INTERRUPT 
/RESTART THE TEST 



/SERIAL LINE U"IT INTERACTIVE TRANSMITTER SERVICE ROUTINE TEST 42 



1527 3073 

1530 6042 

1531 4775' 

1532 5266 



X'ITSfR, OCA 
TCP 
JMS 
JMP 



XMTFLG 



CHPACL 
RTCSL'J 



/SET TRANSMITTER ACTIVE FLAG 
/CLEAR THE TRANSMIT FLAG 
/COMPARE THE AC DATA WORD AND LINK 
/GO CHECK FOR ACTJVE DEVICES 



/REAL TIME CLOCK INTERACTIVE CLOCK SERVICE ROUTINE TEST 42 



1533 


3075 


RTCSERi OCA 


RTCFLG 


/SET CLOCK ACTIVE FLAG 


1534 


6136 


C L CL 




/Clear the clock flag 


1535 


4775' 


■ JMS 


CMPACL 


/COMPARE THE AC AND LINK 


1536 


1022 


TAD 


0P2SEL ' 


/CHECK TO SEE IF RUNNING ON ACT LINE 


1537 


7700 


SMA 


CLA 


/IS I T? 


1540 


5346 


JMP 


i+6 


/NO 


1541 


2102 


ISZ 


ACTCNT 


/I SECOND VET? 


1542 


5346 


JMP 


i+4 

M144 


/RESET ACT COUNTER 


1543 


1103 


TAD 
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1544 3102 

1545 4136 

1546 2047 

1547 5266 
1350 4470 

1551 6007 

1552 4136 

1553 4435 

1554 7006 

1555 7710 

1556 5445 

1557 5440 

1371 .3 623 

1572 7740 

1573 1670 

1574 1742 

1575 1621 

1576 1600 
1377 3641 



OCA 


ACTCNT 


JMS 


TSTGOD 


ISZ 


TSTCNT 


JMP 


RTCSLU 


JMS I 


DELAYR 


CAF 




JMS 


TSTGOD 


5HHCHK 




RTL 




SPA 


CLA 


JMP I 


TEST 


PRGENQ 





/SAVE IT 

/good pas so far 

/INCREMENT PROGRAM TEST COUNTER 

/GO CHECK FOR ACTJVE DEVICES 

/DELAY FOR 200MS TO ALLOW FLAGS TO SETTLE 

/CLEAR ALL FLAGS BUT SET SLU INT ENA 

/GOOD AGAIN! !! | 

/CHECK SR2S1 TO LOOP ON TEST 

/LOOP? 

/YES.DO TEST OVER 
/NO, END OP TEST 



/SERIAL LINE UNIT INTERACTIVE RECEIVER SERVICE ROUTINE TEST 42 

/SET RECEIVE FLAG To ACTIVE 
/CLEAR AC AND FLAG AND READ BUFFER 
/SAVE THE WORD READ 
/COMPARE THE AC AND LINK 

/COMPARE THE WORD TRANSMITTED WITH WORD READ 



/ARE THEY EQUAL? 
/NO, DATA ERROR 

/ADD ONE TO THE WORD TO K TRANSMITTED 

/MASK OUT FOR THE EIGHT SITS 
/SAVE THE NEW WORD 
/GET THE WORD AND TRANSMIT IT 
/LOAD AND TRANSMIT THE WORD 

/GO CHECK FOR ACTJVE PEVUIS AND RESET THE AC 



160C 


3074 


RECS"Ri oca 


RECFLG 


1601 


6036 


KRB 




1602 


^1034 


OCA 


SLUREC 


1603 


4221 


JMS 


CMPACL 


1604 


1053 


TAO 


SLUXMT 


1603 


7041 


CIA 




1606 


1054 


TAO 


SLUREC 


1607 


7643 


SZA 


CLA 


1610 


4317 


JMS 


5LUERR 


1611 


1053 


TAO 


SLUXMT 


1612 


7001 


IAC 




1613 


«056 


AND 


K377 


1614 


3033 


OCA 


SLUXMT 


1615 


1053 


TAO 


SLUXMT 


1616 


6046 


TLS 




1617 


7300 


CLA 


CLL 


1623 


5777' 


JMP 


RTCSLU 



/ROUTINE TO CHECK THAT THE AC AND LINK DIDN'T CHANGE DURING INTERACTION TEST 4S 



1621 3000 

1622 1071 

1623 7041 

1624 t 776' 

1625 7640 

1626 3234 



TAD 
CJA 
TAD 
SZA 
JMP 



EXPACD /GET THE EXPECTED AC DATA 

ACORET /GET THE DATA RETURNED 

CLA /ARE THEY EQUAL 

ACLERR /NO, ERROR 



/DKCB.BA OPTION TEST 1 MAINUEC.B8.DJDKA.B.L (K PART 4 



1657 
1633 
1631 
1632 
1633 
1634 
1635 
1636 
1637 

1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1653 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 



1673 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1733 
1731 
1702 
1733 
1704 
1705 
1706 
1707 
1710 
1711 
1712 



1072 

7041 

1775' 

7650 

"5621 

1221 

3237 

7610 

7402 

4774' 

4435 

7710 

5263 

7240 

1221 

7402 

7200 

10U 

7402 

7200 

1776' 

7402 

7200 

1072 

7402 

7200 

1775' 

7402 

4435 

7004 

7710 

5446 

5621 







LINK 




CIA 






TAD 


LINKFT 




SNA 


CL4 




JMP I 


CMPACL 


ACLERR, 


TAO 


CMPACL 




OCA 


,*2 




SKP 


CLA 




HLT/CMPACL 




JMS 


ACTCHK 




SWHCHK 






SPA 


CLA 




JMP 


ACLLOP 




OLA 


CMA 




TAO 


CMPACL 




HUT 






CLA 






TAO 


EXPACQ 




HUT 






CUA 






TAD 


ACDRET 




H IT 






CU» 






TAO 


LINK 




HUT 






CUA 






TAD 


LINKPT 




HLT 




ACLLOP, 


SWHCHK 
"AL 






SPA 


CUA 




JMP I 


TSTLOP 




JMP I 


CMPACL 



4774' 

4435 

7710 

5312 

7240 

1270 

7432 

7330 

1073 

7640 

7402 

1374 

7640 

7402 

1075 

7640 

7402 

4435 



/INACTIVE OEVICt ERROR 
INACOV, 



JMS 


ACTCHK 






SPA 


CLA 


JMP 


SNACLP 


CL« 


CMA 


TAO 


INACOV 


HLT 




CLA 


CLL 


TAO 


XMTFLG 


SZA 


CLA 


HLT 




TAD 


PEOPLE 


S2A 


CLA 


HUT 




TAD 


RTCFLS 


S2A 


CLA 


HLT 





INACLPi SWHCHK 
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/SET EXPECTED LINK 

/GET THE RETURN LINK 
/ARE THEY EQUAL? 
/YES, RETURN TO TEST 



/CHECK TO SEE IF RUNNING ON ACT LINE 
/CHECK SROil TO INHIBIT ERRQR HALT 

/INHIBIT ERROR HALT, 50 CHECK LOOP SWITCH 

/AC CONTAINS ADDRESS WHERE THE ERROR WAS DETECTED 

/THE AC CONTAINS AC DATA BEFORE INTERRUPT 
/ 

/THE AC CONTAINS AC DATA AFTER INTERRUPT 
/ 

/THE AC CONTAINS THE LINK BEFORE INTERRUPT 

/THE AC CONTAINS LINK AFTER INTERRUPT 
/CHECK SR % TO LOOP ON ERROR 



/SCOPE LOOP 
/RETURN TO TEST 



/CHECK TO S EE : If RUNNING ON THE ACT LINr 
/INHIBIT ERROR HALT? L Ll E 

/YES CHECK LOOP SWITCH 

/AC = ADDRESS WHERE ERROR WAS DETECTED 

/SUU XMIT PUAG IS INACTIVE 

/SLU RECEIVE FLAG IS INACTIVE 

/RTC FLAG IS INACTIVE 
/CHECK SRU1 TO LOOP ON [RRO» 
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1713 7034 

1714 7710 

1715 5446 

1716 5670 



1717 

1723 

1721 

1722 

1723 

1724 

1723 

1726 

1727 

1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1740 

1741 



Z000 

4774' 

4435 

7710 

5335 

7240 

1317 

7432 

7200 

1053 

7432 

7200 

1054 

7402 

«435 

7004 

7710 

5446 

5717 



1742 
1743 
1744 
1745 
1746 
1747 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1763 
1761 
1762 
1763 
1764 



0030 

4774' 

4435 

7710 

5360 

7240 

1342 

7402 

7200 

1051 

7402 

7233 

1052 

7402 

4435 

7004 

7713 

5446 

5742 



PAL 
SPA 
JMP 
JMP 
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CLA 

TSTLOP 
INACOV 



/SLU DATA ERROR DURING 
SLUERR, 1 



JMS 

SWHCHK 

SPA 

JMP 

CLA 

TAD 

HLT 

CLA 

TAO 

HLT 

CLA 

TAD 

"LT 

SLULOP, SWHCHK 
P»L 
SPA 

JMP I 
JMP I 



ACTCHK 
CLA 

SLULOP 
CMA 

SLUERR 



SLUREC 



CLA 

TSTLOP 
SLUERR 



/scope loop 
/return to the test 

interaction test 42 

/Check to see if running on act line 

/SR.! INHIBIT ERROR HALT.CHEOK LOOP SW 

/AC = ADDRESS WHERE ERROR WAS DETECTED 

/AC = WORD TRANSMITTED 

/AC = WORD THAT WAS READ 
/CHECK SRin TO LOOP ON 5RRQR 

/SCOPE LOOP 
/RETURN TO TEST 



/PARALLEL I/O DATA ERROR DURING INTERACTION TEST 42 



PIOERR, 

JMS 

SWHCHK 

SPA 

JMP 

CLA 

TAD 

HLT 

CL4 

TAD 

HUT 

CLa 

TAD 

HIT 

PIOLOP, SWHCHK 
PAL 
SPA 

JMP I 



ACTCHK 
CLA 

PIOLOP 

CMA 

PIOERR 



PIOREC 



JMP 



CLA 

TSTLOP 
I PIOERR 



/check to see if running on act line 

/inhibit error halt? 
/yes, check loop switch 



/AC a ADDRESS WHERE ERROR HAS DETECTED 

/AC = THE WORD TRANSMITTED 

/AC a THE WORD READ FROM P I/O 
/LOOP ON ERROR IF SRm 

/SOOPE LOOP 
/RETURN TO TEST 



1774 ,; 7! ;6 

1775 1526 

1776 1525 

1777 1466 
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3080 
0100 


11110003 
11111111 


'0033030 
11111111 


11111111 
11111111 


11111111 
llllllll 


llllllll 
llllllll 


llllllll 

11111000 


llllllll 

00^00000 


llllllll 
JI0000000 


0200 
0300 


11111111 
11111111 


11111111 
11111111 


11111111 
11111111 


11111111 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
11111011 


0400 
0500 


11111111 
11111111 


11111111 
11111111 


11111111 
11111111 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
11113111 


0600 
3 700 


11111111 
11111111 


11111111 
11111111 


11111111 
11111111 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


1000 
1100 


11111111 
11111111 


11111111 
11111111 


11111111 
11111111 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


1200 
1300 


11111111 
11111111 


11111111 
11111111 


11111111 
11111111 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
11001111 


1400 
1500 


11111111 
11111111 


11111111 
11111111 


111111U 
11111111 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 

00000000 


llllllll 

miiuii 


1600 
1700 


11111111 
11111111 


11111111 
11111111 


11111111 
11111111 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
llllllll 


llllllll 
11111000 


miiiii 

30001111 



2000 
2100 

2200 
2300 

2400 
2500 

2600 
2700 



3000 
3100 

3200 
3300 

3400 
3500 



3600 
3700 
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4100 



4200 
43152 

*400 

4KB 

4600 
4700 



5000 
5100 

5200 
5300 

5400 
5500 

5600 
5700 



6000 
6100 

6200 
6300 




6600 
6700 



7000 
7100 

7200 
7300 

7400 
7500 

7600 
7700 



/DKCS.BA 0P T ION T EST 1 MAINOEQ.08.OJOKA.B,L IK Part 4 PALM V142A 16.JjN.73 



AC 


?4S1 


BBSS 


6577 


KJMP7 


0665 


ACORET 


1525 


DBST 


6570 


kJmprt 


0672 


ACLER1 


1634 


DBTD 


6574 


KHB 


6036 


ACL I ON 


1506 


BELAY 


1340 


KRMF 


0131 


ACLLOP 


1663 


OELAYR 


0070 


KRS 


6034 


ACTCHK 


C726 


5ERFI0 


1111 


KRTF 


0133 


ACTCK2 


3500 


OERSLU 


1134 


KSF 


6031 


ACTCNT 


3102 


OONLOP 


4424 


KSPWAT 


4432 


AOTTLO 


5134 


ENARTC 


0146 


KTtST 


0666 


ACTRET 


(«764 


ENDPAS 


0600 


LINK 


0072 


AODTI M 


?563 


ERROR 


4427 


LINKRT 


1526 


AEPROR 


P675 


ERRPC 


0743 


LQADSM 


6151 


AERSUH 


?707 


EXPACO 


0071 


LQOFRU 


6163 


BADPAS 


3100 


FLSCK1 


0505 


LODSIM 


4437 


BAUDPT 


1305 


FI.GCKZ 


0510 


LQOPPC 


4423 


BAUDTB 


1310 


FLGCK3 


05J3 


LOOPSW 


0437 


8AUQWD 


1304 


FL5CK4 


0516 


LQPBON 


0421 


BDPNTR 


1307 


FLOCKS 


0521 


HI? 


0066 


BR110 


1320 


FLGRST 


0667 


H144 


0103 


BR1200 


1348 


FRQCNT 


0250 


"15 


1371 


SR150 


1324 


FROTAB 


0321 


M4 


0065 


BR2403 


1344 


COODPS 


0101 


H40 


3374 


RR320 


1330 


CTF 


6004 


ONACTL 


0765 


BR4300 


1350 


MLT 


7402 


0P11K4 


0000 


BR600 


1334 


INACOV 


1670 


OPISEL 


0021 


BR9SBS 


1J54 


INACLP 


1712 


0P2SEL 


0022 


C7 


,'670 


INACTV 


0077 


PATCH 


0104 


CAF 


6007 


INTERA 


1522 


PCLOOP 


0400 


CAL 


5133 


INTFLG 


0041 


PJODAT 


4426 


CHKACT 


''744 


INTQN 


1264 


P100ER 


4430 


CHKS I M 


1161 


INTRET 


0530 


PJOERH 


1742 


6HKSWH 


f607 


INTSKP 


1400 


PIOLOP 


1760 


CLCL 


6136 


K0 


0636 


PIOREC 


0052 


CLKFL5 


3042 


n 


0125 


PIOSER 


1424 


CLKSET 


"752 


*10 


0671 


PIOSWH 


1127 


BLKSNC 


0135 


Kll 


P673 


PIOXMT 


0051 


CLUE 


6135 


- '1,2 


0674 


PNOINT 


3076 


CLROET 


6196 


K125 


0061 


PQUFAL 


0641 


CLRSIM 


6150 


<2 


0126 


PHOENP 


5440 


CLSK 


6137 


K200 


0057 


RANI 


1523 


CLSKUT 


4425 


K252 


0060 


RAN2 


1524 


CHPACL 


1621 


<2525 


0063 


RECFLli 


0074 


CNT 


B043 


'3 


0127 


RECSER 




ONTl 


.5044 


K377 


0056 


"E5C.T 


1476 


CQNTWD 


3055 


K5252 


0062 


"ETAOU 


3637 


DATPIO 




K7 


0064 


RETURN 


0620 


OATSLU 


1053 


K7710 


0150 


RHP 


6244 


58CE 


6576 


KCC 


6032 


RTCENA 


4146 


oacr 


6573 


KC3F 


0132 


RTCFLU 


0075 


DSHD 


6572 


KCF 


6030 


RTCFRO 


0251 


oasE 


6575 


KIE 


6035 


RTCI'IT 


1215 


3BSK 


S571 


KJ"P 


0130 


RTCSEH 


1533 



75 


9|06 


'TCSLU 


1466 


RTCTIm 


1200 


RTF 


6005 


RTIMOK 


0246 


SAVASD 


0124 


savcnt 


0050 


5AVL3C 


0640 


SBE 


6101 


SJMCUK 


4436 


SIMCL'R 


6160 


SIHCNT 


0067 


SJNINT 


0444 


»[ML9D 


0414 


SIMWSD 


0714 


SKPCMN 


0452 


SKPOAV 


6165 


SKPFRQ 


6162 


SKPR9R 


6157 


SKPSTR 


6167 


SLUDAT 


4433 


SLUOER 


4434 


SLUEPR 


1717 


SLUINT 


1271 


SLULOP 


1735 


SLUREC 


0054 


SLUSTR 


1250 


SLUSUH 


1154 


SLUTIM 


1223 


JLUT0K 


0317 


UUXXT 


0053 


SP! 


6045 


SPL 


6102 


STPBIT 


1306 


STRFRQ 


6161 


SWHCUK 


4435 


SWITCH 


0020 


TABFRO 


0300 


TCP 


6042 


TEST 


004! 


TEST40 


0205 


TEST41 


0252 


TEST42 


0331 


TFL 


6040 


TLS 


6046 


TPC 


6044 


Tsr 


6041 


TSFWAT 


4431 


TSTC«JT 


0047 


TSTGOD 


0136 


TSTLOP 


0046 


UATK9F 


0542 


WATTSF 


0531 
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UTOISK !<553 
XMTF[.G (1873 
VMTSER 1587 

ERRORS DETECTED I 
LINKS OESEHATEDI ?4 
RUN.T1HEI 18 SECONDS 
2K CORE USED 



